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