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

Fixed function name

Browse Source 
Sorry friends, I’m so inattentive!
This commit is contained in:
Артур Файзрахманов 2014-07-26 07:26:11 +06:00
parent 10524fdd82
commit d6b24510ea
1 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
yesod-form/Yesod/Form/I18n/Russian.hs
View File

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