{-# 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
"無効な整数です: " forall a. Monoid a => a -> a -> a
`Data.Monoid.mappend` Text
t
japaneseFormMessage (MsgInvalidNumber Text
t) = Text
"無効な数値です: " forall a. Monoid a => a -> a -> a
`mappend` Text
t
japaneseFormMessage (MsgInvalidEntry Text
t) = 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です: " forall a. Monoid a => a -> a -> a
`mappend` Text
t
japaneseFormMessage (MsgInvalidEmail Text
t) = Text
"無効なメールアドレスです: " forall a. Monoid a => a -> a -> a
`mappend` Text
t
japaneseFormMessage (MsgInvalidHour Text
t) = Text
"無効な時間です: " forall a. Monoid a => a -> a -> a
`mappend` Text
t
japaneseFormMessage (MsgInvalidMinute Text
t) = Text
"無効な分です: " forall a. Monoid a => a -> a -> a
`mappend` Text
t
japaneseFormMessage (MsgInvalidSecond Text
t) = 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
"入力が見つかりません: " forall a. Monoid a => a -> a -> a
`mappend` Text
t
japaneseFormMessage FormMessage
MsgSelectNone = Text
"<なし>"
japaneseFormMessage (MsgInvalidBool Text
t) = Text
"無効なbool値です: " 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進形式である必要があります: " forall a. Monoid a => a -> a -> a
`mappend` Text
t