{-# LANGUAGE OverloadedStrings #-} module Yesod.Form.I18n.Japanese where import Yesod.Form.Types (FormMessage (..)) import Data.Monoid (mappend) import Data.Text (Text) japaneseFormMessage :: FormMessage -> Text japaneseFormMessage :: FormMessage -> Text japaneseFormMessage (MsgInvalidInteger t :: Text t) = "無効な整数です: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `Data.Monoid.mappend` Text t japaneseFormMessage (MsgInvalidNumber t :: Text t) = "無効な数値です: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t japaneseFormMessage (MsgInvalidEntry t :: Text t) = "無効な入力です: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t japaneseFormMessage MsgInvalidTimeFormat = "無効な時刻です。HH:MM[:SS]フォーマットで入力してください" japaneseFormMessage MsgInvalidDay = "無効な日付です。YYYY-MM-DDフォーマットで入力してください" japaneseFormMessage (MsgInvalidUrl t :: Text t) = "無効なURLです: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t japaneseFormMessage (MsgInvalidEmail t :: Text t) = "無効なメールアドレスです: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t japaneseFormMessage (MsgInvalidHour t :: Text t) = "無効な時間です: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t japaneseFormMessage (MsgInvalidMinute t :: Text t) = "無効な分です: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t japaneseFormMessage (MsgInvalidSecond t :: Text t) = "無効な秒です: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t japaneseFormMessage MsgCsrfWarning = "CSRF攻撃を防ぐため、フォームの入力を確認してください" japaneseFormMessage MsgValueRequired = "値は必須です" japaneseFormMessage (MsgInputNotFound t :: Text t) = "入力が見つかりません: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t japaneseFormMessage MsgSelectNone = "<なし>" japaneseFormMessage (MsgInvalidBool t :: Text t) = "無効なbool値です: " Text -> Text -> Text forall a. Monoid a => a -> a -> a `mappend` Text t japaneseFormMessage MsgBoolYes = "はい" japaneseFormMessage MsgBoolNo = "いいえ" japaneseFormMessage MsgDelete = "削除しますか?"