{-# LANGUAGE OverloadedStrings #-} module Yesod.Form.I18n.Norwegian where import Yesod.Form.Types (FormMessage (..)) import Data.Monoid (mappend) import Data.Text (Text) norwegianBokmålFormMessage :: FormMessage -> Text norwegianBokmålFormMessage :: FormMessage -> Text norwegianBokmålFormMessage (MsgInvalidInteger Text t) = Text "Ugyldig antall: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `Data.Monoid.mappend` Text t norwegianBokmålFormMessage (MsgInvalidNumber Text t) = Text "Ugyldig nummer: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t norwegianBokmålFormMessage (MsgInvalidEntry Text t) = Text "Ugyldig oppføring: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t norwegianBokmålFormMessage FormMessage MsgInvalidTimeFormat = Text "Ugyldig klokkeslett, må være i formatet HH:MM[:SS]" norwegianBokmålFormMessage FormMessage MsgInvalidDay = Text "Ugyldig dato, må være i formatet ÅÅÅÅ-MM-DD" norwegianBokmålFormMessage (MsgInvalidUrl Text t) = Text "Ugyldig URL: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t norwegianBokmålFormMessage (MsgInvalidEmail Text t) = Text "Ugyldig e-postadresse: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t norwegianBokmålFormMessage (MsgInvalidHour Text t) = Text "Ugyldig time: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t norwegianBokmålFormMessage (MsgInvalidMinute Text t) = Text "Ugyldig minutt: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t norwegianBokmålFormMessage (MsgInvalidSecond Text t) = Text "Ugyldig sekund: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t norwegianBokmålFormMessage FormMessage MsgValueRequired = Text "Feltet er obligatorisk" norwegianBokmålFormMessage (MsgInputNotFound Text t) = Text "Feltet ble ikke funnet: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t norwegianBokmålFormMessage FormMessage MsgSelectNone = Text "<Ingenting>" norwegianBokmålFormMessage (MsgInvalidBool Text t) = Text "Ugyldig sannhetsverdi: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t norwegianBokmålFormMessage FormMessage MsgBoolYes = Text "Ja" norwegianBokmålFormMessage FormMessage MsgBoolNo = Text "Nei" norwegianBokmålFormMessage FormMessage MsgDelete = Text "Slette?" norwegianBokmålFormMessage FormMessage MsgCsrfWarning = Text "Som beskyttelse mot «cross-site request forgery»-angrep, vennligst bekreft innsendt skjema."