haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Basic form i18n for Russian Language

Browse Source 
Some of translations maybe need to be discussed, because of some
translations are not literal.
This commit is contained in:
Артур Файзрахманов 2014-07-25 21:48:42 +06:00
parent adc259a8e8
commit 1d28ac42b9
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
yesod-form/Yesod/Form/I18n/Russian.hs Normal file
View File

@ -0,0 +1,26 @@
{-# LANGUAGE OverloadedStrings #-}
module Yesod.Form.I18n.English where
import Yesod.Form.Types (FormMessage (..))
import Data.Monoid (mappend)
import Data.Text (Text)
englishFormMessage :: FormMessage -> Text
englishFormMessage (MsgInvalidInteger t) = "Неверно записано целое число: " `mappend` t
englishFormMessage (MsgInvalidNumber t) = "Неверный формат числа: " `mappend` t
englishFormMessage (MsgInvalidEntry t) = "Неверный выбор: " `mappend` t
englishFormMessage MsgInvalidTimeFormat = "Неверно указано время, используйте формат ЧЧ:ММ[:СС]"
englishFormMessage MsgInvalidDay = "Неверно указана дата, используйте формат ГГГГ-ММ-ДД"
englishFormMessage (MsgInvalidUrl t) = "Неверно указан URL адрес: " `mappend` t
englishFormMessage (MsgInvalidEmail t) = "Неверно указана электронная почта: " `mappend` t
englishFormMessage (MsgInvalidHour t) = "Неверно указан час: " `mappend` t
englishFormMessage (MsgInvalidMinute t) = "Неверно указаны минуты: " `mappend` t
englishFormMessage (MsgInvalidSecond t) = "Неверны указаны секунды: " `mappend` t
englishFormMessage MsgCsrfWarning = "Для защиты от межсайтовой подделки запросов (CSRF), пожалуйста, подтвердите отправку данных формы."
englishFormMessage MsgValueRequired = "Отсутствует требуемое значение."
englishFormMessage (MsgInputNotFound t) = "Поле не найдено: " `mappend` t
englishFormMessage MsgSelectNone = "<Не выбрано>"
englishFormMessage (MsgInvalidBool t) = "Неверное логическое значение: " `mappend` t
englishFormMessage MsgBoolYes = "Да"
englishFormMessage MsgBoolNo = "Нет"
englishFormMessage MsgDelete = "Удалить?"