From 757514c536afc5d9dedd984375ebe1c2a22b8c53 Mon Sep 17 00:00:00 2001
From: mingyu guo <mingyuguo@gmail.com>
Date: Tue, 28 Mar 2017 20:40:05 +1030
Subject: [PATCH 1/2] Completed chineseMessage in Yesod.Auth.Message.
 Previously, most of the messages are using simplified characters, but the
 google translated parts are using traditional characters. I have fixed this
 as well.

---
 yesod-auth/Yesod/Auth/Message.hs | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/yesod-auth/Yesod/Auth/Message.hs b/yesod-auth/Yesod/Auth/Message.hs
index a2020550..271f83f7 100644
--- a/yesod-auth/Yesod/Auth/Message.hs
+++ b/yesod-auth/Yesod/Auth/Message.hs
@@ -511,9 +511,9 @@ chineseMessage LoginOpenID = "用OpenID登录"
 chineseMessage LoginGoogle = "用Google帐户登录"
 chineseMessage LoginYahoo = "用Yahoo帐户登录"
 chineseMessage Email = "邮箱"
-chineseMessage UserName = "用户名" -- FIXME by Google Translate "user name"
+chineseMessage UserName = "用户名"
 chineseMessage Password = "密码"
-chineseMessage CurrentPassword = "Current password"
+chineseMessage CurrentPassword = "当前密码"
 chineseMessage Register = "注册"
 chineseMessage RegisterLong = "注册新帐户"
 chineseMessage EnterEmail = "输入你的邮箱地址，你将收到一封确认邮件。"
@@ -547,11 +547,10 @@ chineseMessage ProvideIdentifier = "邮箱或用户名"
 chineseMessage SendPasswordResetEmail = "发送密码重置邮件"
 chineseMessage PasswordResetPrompt = "输入你的邮箱地址或用户名，你将收到一封密码重置邮件。"
 chineseMessage InvalidUsernamePass = "无效的用户名/密码组合"
--- TODO
-chineseMessage i@(IdentifierNotFound _) = englishMessage i
-chineseMessage Logout = "註銷" -- FIXME by Google Translate
-chineseMessage LogoutTitle = "註銷" -- FIXME by Google Translate
-chineseMessage AuthError = "验证错误" -- FIXME by Google Translate
+chineseMessage (IdentifierNotFound ident) = "邮箱/用户名不存在: " `mappend` ident
+chineseMessage Logout = "注销"
+chineseMessage LogoutTitle = "注销"
+chineseMessage AuthError = "验证错误"
 
 czechMessage :: AuthMessage -> Text
 czechMessage NoOpenID = "Nebyl nalezen identifikátor OpenID"

From db9b51cdf42c1ef657fbc5e0dfd3a6cf8ad9b7dc Mon Sep 17 00:00:00 2001
From: mingyu guo <mingyuguo@gmail.com>
Date: Tue, 28 Mar 2017 20:59:48 +1030
Subject: [PATCH 2/2] Added Yesod.Form.I18n.Chinese

---
 yesod-form/Yesod/Form/I18n/Chinese.hs | 26 ++++++++++++++++++++++++++
 yesod-form/yesod-form.cabal           |  1 +
 2 files changed, 27 insertions(+)
 create mode 100644 yesod-form/Yesod/Form/I18n/Chinese.hs

diff --git a/yesod-form/Yesod/Form/I18n/Chinese.hs b/yesod-form/Yesod/Form/I18n/Chinese.hs
new file mode 100644
index 00000000..5d85effc
--- /dev/null
+++ b/yesod-form/Yesod/Form/I18n/Chinese.hs
@@ -0,0 +1,26 @@
+{-# LANGUAGE OverloadedStrings #-}
+module Yesod.Form.I18n.Chinese where
+
+import Yesod.Form.Types (FormMessage (..))
+import Data.Monoid (mappend)
+import Data.Text (Text)
+
+chineseFormMessage :: FormMessage -> Text
+chineseFormMessage (MsgInvalidInteger t) = "无效的整数: " `Data.Monoid.mappend` t
+chineseFormMessage (MsgInvalidNumber t) = "无效的数字: " `mappend` t
+chineseFormMessage (MsgInvalidEntry t) = "无效的条目: " `mappend` t
+chineseFormMessage MsgInvalidTimeFormat = "无效的时间, 必须符合HH:MM[:SS]格式"
+chineseFormMessage MsgInvalidDay = "无效的日期, 必须符合YYYY-MM-DD格式"
+chineseFormMessage (MsgInvalidUrl t) = "无效的链接: " `mappend` t
+chineseFormMessage (MsgInvalidEmail t) = "无效的邮箱地址: " `mappend` t
+chineseFormMessage (MsgInvalidHour t) = "无效的小时: " `mappend` t
+chineseFormMessage (MsgInvalidMinute t) = "无效的分钟: " `mappend` t
+chineseFormMessage (MsgInvalidSecond t) = "无效的秒: " `mappend` t
+chineseFormMessage MsgCsrfWarning = "为了防备跨站请求伪造, 请确认表格提交."
+chineseFormMessage MsgValueRequired = "此项必填"
+chineseFormMessage (MsgInputNotFound t) = "输入找不到: " `mappend` t
+chineseFormMessage MsgSelectNone = "<空>"
+chineseFormMessage (MsgInvalidBool t) = "无效的逻辑值: " `mappend` t
+chineseFormMessage MsgBoolYes = "是"
+chineseFormMessage MsgBoolNo = "否"
+chineseFormMessage MsgDelete = "删除?"
diff --git a/yesod-form/yesod-form.cabal b/yesod-form/yesod-form.cabal
index 61dc4e35..1d087185 100644
--- a/yesod-form/yesod-form.cabal
+++ b/yesod-form/yesod-form.cabal
@@ -68,6 +68,7 @@ library
                      Yesod.Form.I18n.Russian
                      Yesod.Form.I18n.Dutch
                      Yesod.Form.I18n.Spanish
+                     Yesod.Form.I18n.Chinese
                      -- FIXME Yesod.Helpers.Crud
     ghc-options:     -Wall