    {-# 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 Text
    t) = Text
    "Ungültige Ganzzahl: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `Data.Monoid.mappend` Text
    t
    germanFormMessage (MsgInvalidNumber Text
    t) = Text
    "Ungültige Zahl: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    germanFormMessage (MsgInvalidEntry Text
    t) = Text
    "Ungültiger Eintrag: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    germanFormMessage FormMessage
    MsgInvalidTimeFormat = Text
    "Ungültiges Zeitformat, HH:MM[:SS] Format erwartet"
    germanFormMessage FormMessage
    MsgInvalidDay = Text
    "Ungültiges Datum, JJJJ-MM-TT Format erwartet"
    germanFormMessage (MsgInvalidUrl Text
    t) = Text
    "Ungültige URL: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    germanFormMessage (MsgInvalidEmail Text
    t) = Text
    "Ungültige e-Mail Adresse: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    germanFormMessage (MsgInvalidHour Text
    t) = Text
    "Ungültige Stunde: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    germanFormMessage (MsgInvalidMinute Text
    t) = Text
    "Ungültige Minute: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    germanFormMessage (MsgInvalidSecond Text
    t) = Text
    "Ungültige Sekunde: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    germanFormMessage FormMessage
    MsgCsrfWarning = Text
    "Bitte bestätigen Sie ihre Eingabe, als Schutz gegen Cross-Site Forgery Angriffe"
    germanFormMessage FormMessage
    MsgValueRequired = Text
    "Wert wird benötigt"
    germanFormMessage (MsgInputNotFound Text
    t) = Text
    "Eingabe nicht gefunden: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    germanFormMessage FormMessage
    MsgSelectNone = Text
    "<Nichts>"
    germanFormMessage (MsgInvalidBool Text
    t) = Text
    "Ungültiger Wahrheitswert: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    germanFormMessage FormMessage
    MsgBoolYes = Text
    "Ja"
    germanFormMessage FormMessage
    MsgBoolNo = Text
    "Nein"
    germanFormMessage FormMessage
    MsgDelete = Text
    "Löschen?"
    germanFormMessage (MsgInvalidHexColorFormat Text
    t) = Text
    "Ungültige Farbe, muss im Hexadezimalformat #rrggbb vorliegen: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    germanFormMessage (MsgInvalidDatetimeFormat Text
    t) = Text
    "Ungültige Datums- und Uhrzeitangabe, muss im Format YYYY-MM-DD(T| )HH:MM[:SS] vorliegen: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t