{-# 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 = "削除しますか?"