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