{-# 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
"Удалить?"