    {-# 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?"
    czechFormMessage (MsgInvalidHexColorFormat Text
    t) = Text
    "Neplatná barva, musí být v #rrggbb hexadecimálním formátu: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    czechFormMessage (MsgInvalidDatetimeFormat Text
    t) = Text
    "Neplatné datum a čas, musí být ve formátu YYYY-MM-DD(T| )HH:MM[:SS]: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t