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