From c2cb999a8d8bd4e100b9eb80f1064efa49caa544 Mon Sep 17 00:00:00 2001
From: Tom Streller <dusklykan@yahoo.co.uk>
Date: Tue, 27 Dec 2011 13:59:35 +0100
Subject: [PATCH] added german messages

---
 yesod-form/Yesod/Form/I18n/German.hs | 26 ++++++++++++++++++++++++++
 yesod-form/yesod-form.cabal          |  1 +
 2 files changed, 27 insertions(+)
 create mode 100644 yesod-form/Yesod/Form/I18n/German.hs

diff --git a/yesod-form/Yesod/Form/I18n/German.hs b/yesod-form/Yesod/Form/I18n/German.hs
new file mode 100644
index 00000000..aac5229e
--- /dev/null
+++ b/yesod-form/Yesod/Form/I18n/German.hs
@@ -0,0 +1,26 @@
+{-# 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 (MsgInvalidInteger t) = "Ungültige Ganzzahl: " `mappend` t
+germanFormMessage (MsgInvalidNumber t) = "Ungültige Zahl: " `mappend` t
+germanFormMessage (MsgInvalidEntry t) = "Ungültiger Eintrag: " `mappend` t
+germanFormMessage MsgInvalidTimeFormat = "Ungültiges Zeitformat, HH:MM[:SS] Format erwartet"
+germanFormMessage MsgInvalidDay = "Ungültiges Datum, JJJJ-MM-TT Format erwartet"
+germanFormMessage (MsgInvalidUrl t) = "Ungültige URL: " `mappend` t
+germanFormMessage (MsgInvalidEmail t) = "Ungültige e-Mail Adresse: " `mappend` t
+germanFormMessage (MsgInvalidHour t) = "Ungültige Stunde: " `mappend` t
+germanFormMessage (MsgInvalidMinute t) = "Ungültige Minute: " `mappend` t
+germanFormMessage (MsgInvalidSecond t) = "Ungültige Sekunde: " `mappend` t
+germanFormMessage MsgCsrfWarning = "Bitte bestätigen Sie ihre Eingabe, als Schutz gegen Cross-Site Forgery Angriffen"
+germanFormMessage MsgValueRequired = "Wert wird benötigt"
+germanFormMessage (MsgInputNotFound t) = "Eingabe nicht gefunden: " `mappend` t
+germanFormMessage MsgSelectNone = "<Nichts>"
+germanFormMessage (MsgInvalidBool t) = "Ungültiger Wahrheitswert: " `mappend` t
+germanFormMessage MsgBoolYes = "Ja"
+germanFormMessage MsgBoolNo = "Nein"
+germanFormMessage MsgDelete = "Löschen?"
diff --git a/yesod-form/yesod-form.cabal b/yesod-form/yesod-form.cabal
index 25f91d75..5792aba2 100644
--- a/yesod-form/yesod-form.cabal
+++ b/yesod-form/yesod-form.cabal
@@ -46,6 +46,7 @@ library
                      Yesod.Form.I18n.English
                      Yesod.Form.I18n.Portuguese
                      Yesod.Form.I18n.Swedish
+                     Yesod.Form.I18n.German
                      -- FIXME Yesod.Helpers.Crud
     ghc-options:     -Wall