{-# LANGUAGE OverloadedStrings #-}
module Yesod.Form.I18n.Swedish where

import Yesod.Form.Types (FormMessage (..))
import Data.Monoid (mappend)
import Data.Text (Text)

swedishFormMessage :: FormMessage -> Text
swedishFormMessage :: FormMessage -> Text
swedishFormMessage (MsgInvalidInteger Text
t) = Text
"Ogiltigt antal: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`Data.Monoid.mappend` Text
t
swedishFormMessage (MsgInvalidNumber Text
t) = Text
"Ogiltigt nummer: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
swedishFormMessage (MsgInvalidEntry Text
t) = Text
"Invalid entry: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
swedishFormMessage FormMessage
MsgInvalidTimeFormat = Text
"Ogiltigt klockslag, måste vara på formatet HH:MM[:SS]"
swedishFormMessage FormMessage
MsgInvalidDay = Text
"Ogiltigt datum, måste vara på formatet ÅÅÅÅ-MM-DD"
swedishFormMessage (MsgInvalidUrl Text
t) = Text
"Ogiltig URL: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
swedishFormMessage (MsgInvalidEmail Text
t) = Text
"Ogiltig epostadress: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
swedishFormMessage (MsgInvalidHour Text
t) = Text
"Ogiltig timme: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
swedishFormMessage (MsgInvalidMinute Text
t) = Text
"Ogiltig minut: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
swedishFormMessage (MsgInvalidSecond Text
t) = Text
"Ogiltig sekund: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
swedishFormMessage FormMessage
MsgValueRequired = Text
"Fältet är obligatoriskt"
swedishFormMessage (MsgInputNotFound Text
t) = Text
"Fältet hittades ej: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
swedishFormMessage FormMessage
MsgSelectNone = Text
"<Ingenting>"
swedishFormMessage (MsgInvalidBool Text
t) = Text
"Ogiltig boolesk: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
swedishFormMessage FormMessage
MsgBoolYes = Text
"Ja"
swedishFormMessage FormMessage
MsgBoolNo = Text
"Nej"
swedishFormMessage FormMessage
MsgDelete = Text
"Radera?"
swedishFormMessage FormMessage
MsgCsrfWarning = Text
"Som skydd mot \"cross-site request forgery\" attacker, vänligen bekräfta skickandet av formuläret."