    {-# 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 Text
    t) = Text
    "無効な整数です: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `Data.Monoid.mappend` Text
    t
    japaneseFormMessage (MsgInvalidNumber Text
    t) = Text
    "無効な数値です: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    japaneseFormMessage (MsgInvalidEntry Text
    t) = Text
    "無効な入力です: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    japaneseFormMessage FormMessage
    MsgInvalidTimeFormat = Text
    "無効な時刻です。HH:MM[:SS]フォーマットで入力してください"
    japaneseFormMessage FormMessage
    MsgInvalidDay = Text
    "無効な日付です。YYYY-MM-DDフォーマットで入力してください"
    japaneseFormMessage (MsgInvalidUrl Text
    t) = Text
    "無効なURLです: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    japaneseFormMessage (MsgInvalidEmail Text
    t) = Text
    "無効なメールアドレスです: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    japaneseFormMessage (MsgInvalidHour Text
    t) = Text
    "無効な時間です: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    japaneseFormMessage (MsgInvalidMinute Text
    t) = Text
    "無効な分です: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    japaneseFormMessage (MsgInvalidSecond Text
    t) = Text
    "無効な秒です: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    japaneseFormMessage FormMessage
    MsgCsrfWarning = Text
    "CSRF攻撃を防ぐため、フォームの入力を確認してください"
    japaneseFormMessage FormMessage
    MsgValueRequired = Text
    "値は必須です"
    japaneseFormMessage (MsgInputNotFound Text
    t) = Text
    "入力が見つかりません: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    japaneseFormMessage FormMessage
    MsgSelectNone = Text
    "<なし>"
    japaneseFormMessage (MsgInvalidBool Text
    t) = Text
    "無効なbool値です: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    japaneseFormMessage FormMessage
    MsgBoolYes = Text
    "はい"
    japaneseFormMessage FormMessage
    MsgBoolNo = Text
    "いいえ"
    japaneseFormMessage FormMessage
    MsgDelete = Text
    "削除しますか?"
    japaneseFormMessage (MsgInvalidHexColorFormat Text
    t) = Text
    "無効な色。＃rrggbb16進形式である必要があります: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    japaneseFormMessage (MsgInvalidDatetimeFormat Text
    t) = Text
    "無効な日時です。YYYY-MM-DD(T| )HH:MM[:SS] 形式である必要があります: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t