{-# 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."