{-# 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 Text
t) = Text
"Neplatné celé číslo: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`Data.Monoid.mappend` Text
t
czechFormMessage (MsgInvalidNumber Text
t) = Text
"Neplatné číslo: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
czechFormMessage (MsgInvalidEntry Text
t) = Text
"Neplatná položka: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
czechFormMessage FormMessage
MsgInvalidTimeFormat = Text
"Neplatný čas, musí být ve formátu HH:MM[:SS]"
czechFormMessage FormMessage
MsgInvalidDay = Text
"Neplatný den, musí být formátu YYYY-MM-DD"
czechFormMessage (MsgInvalidUrl Text
t) = Text
"Neplatná URL: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
czechFormMessage (MsgInvalidEmail Text
t) = Text
"Neplatná e-mailová adresa: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
czechFormMessage (MsgInvalidHour Text
t) = Text
"Neplatná hodina: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
czechFormMessage (MsgInvalidMinute Text
t) = Text
"Neplatná minuta: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
czechFormMessage (MsgInvalidSecond Text
t) = Text
"Neplatná sekunda: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
czechFormMessage FormMessage
MsgCsrfWarning = Text
"Prosím potvrďte odeslání formuláře jako ochranu před útekem „cross-site request forgery“."
czechFormMessage FormMessage
MsgValueRequired = Text
"Hodnota je vyžadována"
czechFormMessage (MsgInputNotFound Text
t) = Text
"Vstup nebyl nalezen: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
czechFormMessage FormMessage
MsgSelectNone = Text
"<Nic>"
czechFormMessage (MsgInvalidBool Text
t) = Text
"Neplatná pravdivostní hodnota: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
czechFormMessage FormMessage
MsgBoolYes = Text
"Ano"
czechFormMessage FormMessage
MsgBoolNo = Text
"Ne"
czechFormMessage FormMessage
MsgDelete = Text
"Smazat?"