From 51f1b54b345debc040c83bee905ae0c2152f521d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lubom=C3=ADr=20Sedl=C3=A1=C5=99?= <lubomir.sedlar@gmail.com>
Date: Wed, 31 Jul 2013 12:45:21 +0200
Subject: [PATCH] Add Czech translation to forms

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

diff --git a/yesod-form/Yesod/Form/I18n/Czech.hs b/yesod-form/Yesod/Form/I18n/Czech.hs
new file mode 100644
index 00000000..694522b5
--- /dev/null
+++ b/yesod-form/Yesod/Form/I18n/Czech.hs
@@ -0,0 +1,26 @@
+{-# LANGUAGE OverloadedStrings #-}
+module Yesod.Form.I18n.Czech where
+
+import Yesod.Form.Types (FormMessage (..))
+import Data.Monoid (mappend)
+import Data.Text (Text)
+
+czechFormMessage :: FormMessage -> Text
+czechFormMessage (MsgInvalidInteger t) = "Neplatné celé číslo: " `mappend` t
+czechFormMessage (MsgInvalidNumber t) = "Neplatné číslo: " `mappend` t
+czechFormMessage (MsgInvalidEntry t) = "Neplatná položka: " `mappend` t
+czechFormMessage MsgInvalidTimeFormat = "Neplatný čas, musí být ve formátu HH:MM[:SS]"
+czechFormMessage MsgInvalidDay = "Neplatný den, musí být formátu YYYY-MM-DD"
+czechFormMessage (MsgInvalidUrl t) = "Neplatná URL: " `mappend` t
+czechFormMessage (MsgInvalidEmail t) = "Neplatná e-mailová adresa: " `mappend` t
+czechFormMessage (MsgInvalidHour t) = "Neplatná hodina: " `mappend` t
+czechFormMessage (MsgInvalidMinute t) = "Neplatná minuta: " `mappend` t
+czechFormMessage (MsgInvalidSecond t) = "Neplatná sekunda: " `mappend` t
+czechFormMessage MsgCsrfWarning = "Prosím potvrďte odeslání formuláře jako ochranu před útekem „cross-site request forgery“."
+czechFormMessage MsgValueRequired = "Hodnota je vyžadována"
+czechFormMessage (MsgInputNotFound t) = "Vstup nebyl nalezen: " `mappend` t
+czechFormMessage MsgSelectNone = "<Nic>"
+czechFormMessage (MsgInvalidBool t) = "Neplatná pravdivostní hodnota: " `mappend` t
+czechFormMessage MsgBoolYes = "Ano"
+czechFormMessage MsgBoolNo = "Ne"
+czechFormMessage MsgDelete = "Smazat?"
diff --git a/yesod-form/yesod-form.cabal b/yesod-form/yesod-form.cabal
index f41634d4..45d6bc04 100644
--- a/yesod-form/yesod-form.cabal
+++ b/yesod-form/yesod-form.cabal
@@ -54,6 +54,7 @@ library
                      Yesod.Form.I18n.French
                      Yesod.Form.I18n.Norwegian
                      Yesod.Form.I18n.Japanese
+                     Yesod.Form.I18n.Czech
                      -- FIXME Yesod.Helpers.Crud
     ghc-options:     -Wall