Merge branch 'master' of https://github.com/tanakh/yesod

Conflicts:
	yesod-auth/Yesod/Auth/Message.hs
	yesod-form/yesod-form.cabal

yesod-auth/Yesod/Auth/Message.hs

@@ -10,6 +10,7 @@ module Yesod.Auth.Message
     , germanMessage
     , frenchMessage
     , norwegianBokmålMessage
+    , japaneseMessage
     ) where
 
 import Data.Monoid (mappend)
@@ -255,3 +256,37 @@ norwegianBokmålMessage NowLoggedIn = "Du er nå logget inn"
 norwegianBokmålMessage LoginTitle = "Logg inn"
 norwegianBokmålMessage PleaseProvideUsername = "Vennligst fyll inn ditt brukernavn"
 norwegianBokmålMessage PleaseProvidePassword = "Vennligst fyll inn ditt passord"
+
+japaneseMessage :: AuthMessage -> Text
+japaneseMessage NoOpenID = "OpenID識別子がありません"
+japaneseMessage LoginOpenID = "OpenIDでログイン"
+japaneseMessage LoginGoogle = "Googleでログイン"
+japaneseMessage LoginYahoo = "Yahooでログイン"
+japaneseMessage Email = "Eメール"
+japaneseMessage Password = "パスワード"
+japaneseMessage Register = "登録"
+japaneseMessage RegisterLong = "新規アカウント登録"
+japaneseMessage EnterEmail = "メールアドレスを入力してください。確認メールが送られます"
+japaneseMessage ConfirmationEmailSentTitle = "確認メールを送信しました"
+japaneseMessage (ConfirmationEmailSent email) =
+    "確認メールを " `mappend`
+    email `mappend`
+    " に送信しました"
+japaneseMessage AddressVerified = "アドレスは認証されました。新しいパスワードを設定してください"
+japaneseMessage InvalidKeyTitle = "認証キーが無効です"
+japaneseMessage InvalidKey = "申し訳ありません。無効な認証キーです"
+japaneseMessage InvalidEmailPass = "メールアドレスまたはパスワードが無効です"
+japaneseMessage BadSetPass = "パスワードを設定するためには、ログインしてください"
+japaneseMessage SetPassTitle = "パスワードの設定"
+japaneseMessage SetPass = "新しいパスワードを設定する"
+japaneseMessage NewPass = "新しいパスワード"
+japaneseMessage ConfirmPass = "確認"
+japaneseMessage PassMismatch = "パスワードが合いません。もう一度試してください"
+japaneseMessage PassUpdated = "パスワードは更新されました"
+japaneseMessage Facebook = "Facebookでログイン"
+japaneseMessage LoginViaEmail = "Eメールでログイン"
+japaneseMessage InvalidLogin = "無効なログインです"
+japaneseMessage NowLoggedIn = "ログインしました"
+japaneseMessage LoginTitle = "ログイン"
+japaneseMessage PleaseProvideUsername = "ユーザ名を入力してください"
+japaneseMessage PleaseProvidePassword = "パスワードを入力してください"

yesod-form/Yesod/Form/I18n/Japanese.hs

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

yesod-form/yesod-form.cabal

@@ -60,6 +60,7 @@ library
                      Yesod.Form.I18n.German
                      Yesod.Form.I18n.French
                      Yesod.Form.I18n.Norwegian
+                     Yesod.Form.I18n.Japanese
                      -- FIXME Yesod.Helpers.Crud
     ghc-options:     -Wall