    {-# LANGUAGE OverloadedStrings #-}
    module Yesod.Form.I18n.Russian where

    import Yesod.Form.Types (FormMessage (..))
    import Data.Monoid (mappend)
    import Data.Text (Text)

    russianFormMessage :: FormMessage -> Text
    russianFormMessage :: FormMessage -> Text
    russianFormMessage (MsgInvalidInteger Text
    t) = Text
    "Неверно записано целое число: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `Data.Monoid.mappend` Text
    t
    russianFormMessage (MsgInvalidNumber Text
    t) = Text
    "Неверный формат числа: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    russianFormMessage (MsgInvalidEntry Text
    t) = Text
    "Неверный выбор: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    russianFormMessage FormMessage
    MsgInvalidTimeFormat = Text
    "Неверно указано время, используйте формат ЧЧ:ММ[:СС]"
    russianFormMessage FormMessage
    MsgInvalidDay = Text
    "Неверно указана дата, используйте формат ГГГГ-ММ-ДД"
    russianFormMessage (MsgInvalidUrl Text
    t) = Text
    "Неверно указан URL адрес: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    russianFormMessage (MsgInvalidEmail Text
    t) = Text
    "Неверно указана электронная почта: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    russianFormMessage (MsgInvalidHour Text
    t) = Text
    "Неверно указан час: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    russianFormMessage (MsgInvalidMinute Text
    t) = Text
    "Неверно указаны минуты: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    russianFormMessage (MsgInvalidSecond Text
    t) = Text
    "Неверно указаны секунды: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    russianFormMessage FormMessage
    MsgCsrfWarning = Text
    "Для защиты от межсайтовой подделки запросов (CSRF), пожалуйста, подтвердите отправку данных формы."
    russianFormMessage FormMessage
    MsgValueRequired = Text
    "Обязательно к заполнению"
    russianFormMessage (MsgInputNotFound Text
    t) = Text
    "Поле не найдено: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    russianFormMessage FormMessage
    MsgSelectNone = Text
    "<Не выбрано>"
    russianFormMessage (MsgInvalidBool Text
    t) = Text
    "Неверное логическое значение: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    russianFormMessage FormMessage
    MsgBoolYes = Text
    "Да"
    russianFormMessage FormMessage
    MsgBoolNo = Text
    "Нет"
    russianFormMessage FormMessage
    MsgDelete = Text
    "Удалить?"
    russianFormMessage (MsgInvalidHexColorFormat Text
    t) = Text
    "Недопустимое значение цвета, должен быть в шестнадцатеричном формате #rrggbb: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    russianFormMessage (MsgInvalidDatetimeFormat Text
    t) = Text
    "Недопустимое значение даты и времени. Должно быть в формате ГГГГ-ММ-ДД(T| )ЧЧ:ММ[:СС]: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t