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