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?= Date: Fri, 25 Jul 2014 21:48:42 +0600 Subject: [PATCH 1/5] 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 = "Удалить?" From 10524fdd82fa9b13b075d9530a11bf269e0e7f89 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?= Date: Sat, 26 Jul 2014 07:19:50 +0600 Subject: [PATCH 2/5] Fixed typo in module name --- yesod-form/Yesod/Form/I18n/Russian.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/yesod-form/Yesod/Form/I18n/Russian.hs b/yesod-form/Yesod/Form/I18n/Russian.hs index 8ccea99c..c0892f72 100644 --- a/yesod-form/Yesod/Form/I18n/Russian.hs +++ b/yesod-form/Yesod/Form/I18n/Russian.hs @@ -1,5 +1,5 @@ {-# LANGUAGE OverloadedStrings #-} -module Yesod.Form.I18n.English where +module Yesod.Form.I18n.Russian where import Yesod.Form.Types (FormMessage (..)) import Data.Monoid (mappend) From d6b24510ea7b3f674bc5bd943ed46363bf16b56b 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?= Date: Sat, 26 Jul 2014 07:26:11 +0600 Subject: [PATCH 3/5] Fixed function name MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Sorry friends, I’m so inattentive! --- yesod-form/Yesod/Form/I18n/Russian.hs | 38 +++++++++++++-------------- 1 file changed, 19 insertions(+), 19 deletions(-) diff --git a/yesod-form/Yesod/Form/I18n/Russian.hs b/yesod-form/Yesod/Form/I18n/Russian.hs index c0892f72..1d5ab317 100644 --- a/yesod-form/Yesod/Form/I18n/Russian.hs +++ b/yesod-form/Yesod/Form/I18n/Russian.hs @@ -5,22 +5,22 @@ 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 = "Удалить?" +russianFormMessage :: FormMessage -> Text +russianFormMessage (MsgInvalidInteger t) = "Неверно записано целое число: " `mappend` t +russianFormMessage (MsgInvalidNumber t) = "Неверный формат числа: " `mappend` t +russianFormMessage (MsgInvalidEntry t) = "Неверный выбор: " `mappend` t +russianFormMessage MsgInvalidTimeFormat = "Неверно указано время, используйте формат ЧЧ:ММ[:СС]" +russianFormMessage MsgInvalidDay = "Неверно указана дата, используйте формат ГГГГ-ММ-ДД" +russianFormMessage (MsgInvalidUrl t) = "Неверно указан URL адрес: " `mappend` t +russianFormMessage (MsgInvalidEmail t) = "Неверно указана электронная почта: " `mappend` t +russianFormMessage (MsgInvalidHour t) = "Неверно указан час: " `mappend` t +russianFormMessage (MsgInvalidMinute t) = "Неверно указаны минуты: " `mappend` t +russianFormMessage (MsgInvalidSecond t) = "Неверны указаны секунды: " `mappend` t +russianFormMessage MsgCsrfWarning = "Для защиты от межсайтовой подделки запросов (CSRF), пожалуйста, подтвердите отправку данных формы." +russianFormMessage MsgValueRequired = "Отсутствует требуемое значение." +russianFormMessage (MsgInputNotFound t) = "Поле не найдено: " `mappend` t +russianFormMessage MsgSelectNone = "<Не выбрано>" +russianFormMessage (MsgInvalidBool t) = "Неверное логическое значение: " `mappend` t +russianFormMessage MsgBoolYes = "Да" +russianFormMessage MsgBoolNo = "Нет" +russianFormMessage MsgDelete = "Удалить?" From 09ecf9e211b239feedb94c8e1c694bd5ad64b6fa 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?= Date: Sat, 26 Jul 2014 07:36:58 +0600 Subject: [PATCH 4/5] Corrected `ValueRequired` translation --- yesod-form/Yesod/Form/I18n/Russian.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/yesod-form/Yesod/Form/I18n/Russian.hs b/yesod-form/Yesod/Form/I18n/Russian.hs index 1d5ab317..d2171286 100644 --- a/yesod-form/Yesod/Form/I18n/Russian.hs +++ b/yesod-form/Yesod/Form/I18n/Russian.hs @@ -17,7 +17,7 @@ russianFormMessage (MsgInvalidHour t) = "Неверно указан час: " ` russianFormMessage (MsgInvalidMinute t) = "Неверно указаны минуты: " `mappend` t russianFormMessage (MsgInvalidSecond t) = "Неверны указаны секунды: " `mappend` t russianFormMessage MsgCsrfWarning = "Для защиты от межсайтовой подделки запросов (CSRF), пожалуйста, подтвердите отправку данных формы." -russianFormMessage MsgValueRequired = "Отсутствует требуемое значение." +russianFormMessage MsgValueRequired = "Обязательно к заполнению" russianFormMessage (MsgInputNotFound t) = "Поле не найдено: " `mappend` t russianFormMessage MsgSelectNone = "<Не выбрано>" russianFormMessage (MsgInvalidBool t) = "Неверное логическое значение: " `mappend` t From 99484ab894fe6f5feb623b5d937e0c8d71940e18 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?= Date: Sun, 27 Jul 2014 01:08:39 +0600 Subject: [PATCH 5/5] Fixed cabal file Added Russian form translation as exposed module in .cabal --- yesod-form/yesod-form.cabal | 1 + 1 file changed, 1 insertion(+) diff --git a/yesod-form/yesod-form.cabal b/yesod-form/yesod-form.cabal index b7fff339..33ba20dc 100644 --- a/yesod-form/yesod-form.cabal +++ b/yesod-form/yesod-form.cabal @@ -57,6 +57,7 @@ library Yesod.Form.I18n.Norwegian Yesod.Form.I18n.Japanese Yesod.Form.I18n.Czech + Yesod.Form.I18n.Russian -- FIXME Yesod.Helpers.Crud ghc-options: -Wall