    {-# 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."
    swedishFormMessage (MsgInvalidHexColorFormat Text
    t) = Text
    "Ogiltig färg, måste vara i #rrggbb hexadecimalt format: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    swedishFormMessage (MsgInvalidDatetimeFormat Text
    t) = Text
    "Ogiltig datumtid, måste vara i formatet ÅÅÅÅ-MM-DD(T| )TT:MM[:SS]: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t