From 1d28ac42b9746980100daa511ed766d670dcdc7b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=D0=90=D1=80=D1=82=D1=83=D1=80=20=D0=A4=D0=B0=D0=B8=CC=86?=
 =?UTF-8?q?=D0=B7=D1=80=D0=B0=D1=85=D0=BC=D0=B0=D0=BD=D0=BE=D0=B2?=
 <heraldhoi@gmail.com>
Date: Fri, 25 Jul 2014 21:48:42 +0600
Subject: [PATCH] Basic form i18n for Russian Language

Some of translations maybe need to be discussed, because of some
translations are not literal.
---
 yesod-form/Yesod/Form/I18n/Russian.hs | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 yesod-form/Yesod/Form/I18n/Russian.hs

diff --git a/yesod-form/Yesod/Form/I18n/Russian.hs b/yesod-form/Yesod/Form/I18n/Russian.hs
new file mode 100644
index 00000000..8ccea99c
--- /dev/null
+++ b/yesod-form/Yesod/Form/I18n/Russian.hs
@@ -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 = "Удалить?"