1{-# LANGUAGE OverloadedStrings #-} 2module Yesod.Form.I18n.Chinese where 3 4import Yesod.Form.Types (FormMessage (..)) 5import Data.Monoid (mappend) 6import Data.Text (Text) 7 8chineseFormMessage :: FormMessage -> Text 9chineseFormMessage (MsgInvalidInteger t) = "无效的整数: " `Data.Monoid.mappend` t 10chineseFormMessage (MsgInvalidNumber t) = "无效的数字: " `mappend` t 11chineseFormMessage (MsgInvalidEntry t) = "无效的条目: " `mappend` t 12chineseFormMessage MsgInvalidTimeFormat = "无效的时间, 必须符合HH:MM[:SS]格式" 13chineseFormMessage MsgInvalidDay = "无效的日期, 必须符合YYYY-MM-DD格式" 14chineseFormMessage (MsgInvalidUrl t) = "无效的链接: " `mappend` t 15chineseFormMessage (MsgInvalidEmail t) = "无效的邮箱地址: " `mappend` t 16chineseFormMessage (MsgInvalidHour t) = "无效的小时: " `mappend` t 17chineseFormMessage (MsgInvalidMinute t) = "无效的分钟: " `mappend` t 18chineseFormMessage (MsgInvalidSecond t) = "无效的秒: " `mappend` t 19chineseFormMessage MsgCsrfWarning = "为了防备跨站请求伪造, 请确认表格提交." 20chineseFormMessage MsgValueRequired = "此项必填" 21chineseFormMessage (MsgInputNotFound t) = "输入找不到: " `mappend` t 22chineseFormMessage MsgSelectNone = "<空>" 23chineseFormMessage (MsgInvalidBool t) = "无效的逻辑值: " `mappend` t 24chineseFormMessage MsgBoolYes = "是" 25chineseFormMessage MsgBoolNo = "否" 26chineseFormMessage MsgDelete = "删除?" 27