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