{-# 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 :: FormMessage -> Text czechFormMessage (MsgInvalidInteger t :: Text t) = "Neplatné celé číslo: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `Data.Monoid.mappend` Text t czechFormMessage (MsgInvalidNumber t :: Text t) = "Neplatné číslo: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t czechFormMessage (MsgInvalidEntry t :: Text t) = "Neplatná položka: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text 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 :: Text t) = "Neplatná URL: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t czechFormMessage (MsgInvalidEmail t :: Text t) = "Neplatná e-mailová adresa: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t czechFormMessage (MsgInvalidHour t :: Text t) = "Neplatná hodina: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t czechFormMessage (MsgInvalidMinute t :: Text t) = "Neplatná minuta: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t czechFormMessage (MsgInvalidSecond t :: Text t) = "Neplatná sekunda: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text 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 :: Text t) = "Vstup nebyl nalezen: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t czechFormMessage MsgSelectNone = "<Nic>" czechFormMessage (MsgInvalidBool t :: Text t) = "Neplatná pravdivostní hodnota: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t czechFormMessage MsgBoolYes = "Ano" czechFormMessage MsgBoolNo = "Ne" czechFormMessage MsgDelete = "Smazat?"