{-# 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 :: FormMessage -> Text
chineseFormMessage (MsgInvalidInteger Text
t) = Text
"无效的整数: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`Data.Monoid.mappend` Text
t
chineseFormMessage (MsgInvalidNumber Text
t) = Text
"无效的数字: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
chineseFormMessage (MsgInvalidEntry Text
t) = Text
"无效的条目: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
chineseFormMessage FormMessage
MsgInvalidTimeFormat = Text
"无效的时间, 必须符合HH:MM[:SS]格式"
chineseFormMessage FormMessage
MsgInvalidDay = Text
"无效的日期, 必须符合YYYY-MM-DD格式"
chineseFormMessage (MsgInvalidUrl Text
t) = Text
"无效的链接: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
chineseFormMessage (MsgInvalidEmail Text
t) = Text
"无效的邮箱地址: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
chineseFormMessage (MsgInvalidHour Text
t) = Text
"无效的小时: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
chineseFormMessage (MsgInvalidMinute Text
t) = Text
"无效的分钟: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
chineseFormMessage (MsgInvalidSecond Text
t) = Text
"无效的秒: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
chineseFormMessage FormMessage
MsgCsrfWarning = Text
"为了防备跨站请求伪造, 请确认表格提交."
chineseFormMessage FormMessage
MsgValueRequired = Text
"此项必填"
chineseFormMessage (MsgInputNotFound Text
t) = Text
"输入找不到: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
chineseFormMessage FormMessage
MsgSelectNone = Text
"<空>"
chineseFormMessage (MsgInvalidBool Text
t) = Text
"无效的逻辑值: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
chineseFormMessage FormMessage
MsgBoolYes = Text
"是"
chineseFormMessage FormMessage
MsgBoolNo = Text
"否"
chineseFormMessage FormMessage
MsgDelete = Text
"删除?"
chineseFormMessage (MsgInvalidHexColorFormat Text
t) = Text
"颜色无效，必须为 #rrggbb 十六进制格式: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
chineseFormMessage (MsgInvalidDatetimeFormat Text
t) = Text
"日期時間無效，必須採用 YYYY-MM-DD(T| )HH:MM[:SS] 格式： " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t