{-# LANGUAGE OverloadedStrings #-} module Yesod.Form.I18n.German where import Yesod.Form.Types (FormMessage (..)) import Data.Monoid (mappend) import Data.Text (Text) germanFormMessage :: FormMessage -> Text germanFormMessage :: FormMessage -> Text germanFormMessage (MsgInvalidInteger t :: Text t) = "Ungültige Ganzzahl: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `Data.Monoid.mappend` Text t germanFormMessage (MsgInvalidNumber t :: Text t) = "Ungültige Zahl: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t germanFormMessage (MsgInvalidEntry t :: Text t) = "Ungültiger Eintrag: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t germanFormMessage MsgInvalidTimeFormat = "Ungültiges Zeitformat, HH:MM[:SS] Format erwartet" germanFormMessage MsgInvalidDay = "Ungültiges Datum, JJJJ-MM-TT Format erwartet" germanFormMessage (MsgInvalidUrl t :: Text t) = "Ungültige URL: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t germanFormMessage (MsgInvalidEmail t :: Text t) = "Ungültige e-Mail Adresse: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t germanFormMessage (MsgInvalidHour t :: Text t) = "Ungültige Stunde: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t germanFormMessage (MsgInvalidMinute t :: Text t) = "Ungültige Minute: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t germanFormMessage (MsgInvalidSecond t :: Text t) = "Ungültige Sekunde: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t germanFormMessage MsgCsrfWarning = "Bitte bestätigen Sie ihre Eingabe, als Schutz gegen Cross-Site Forgery Angriffe" germanFormMessage MsgValueRequired = "Wert wird benötigt" germanFormMessage (MsgInputNotFound t :: Text t) = "Eingabe nicht gefunden: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t germanFormMessage MsgSelectNone = "<Nichts>" germanFormMessage (MsgInvalidBool t :: Text t) = "Ungültiger Wahrheitswert: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t germanFormMessage MsgBoolYes = "Ja" germanFormMessage MsgBoolNo = "Nein" germanFormMessage MsgDelete = "Löschen?"