From 4cc7d9c7d32af60a979249b7b7a557d0e46a04e0 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 4 May 2011 07:43:21 +0300
Subject: [PATCH] Some more message (thanks to Mike Frai)

---
 Yesod/Auth.hs         | 7 +++++--
 Yesod/Auth/Message.hs | 4 ++++
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/Yesod/Auth.hs b/Yesod/Auth.hs
index a0fca3cc..a47f376d 100644
--- a/Yesod/Auth.hs
+++ b/Yesod/Auth.hs
@@ -38,6 +38,7 @@ import Data.Text.Encoding (decodeUtf8With)
 import Data.Text.Encoding.Error (lenientDecode)
 import Web.Routes.Quasi (toSinglePiece, fromSinglePiece)
 import Yesod.Auth.Message (AuthMessage, defaultMessage)
+import qualified Yesod.Auth.Message as Msg
 
 data Auth = Auth
 
@@ -112,6 +113,8 @@ setCreds :: YesodAuth m => Bool -> Creds m -> GHandler s m ()
 setCreds doRedirects creds = do
     y <- getYesod
     maid <- getAuthId creds
+    l <- languages
+    let mr = renderMessage Auth y l
     case maid of
         Nothing ->
             if doRedirects
@@ -128,14 +131,14 @@ setCreds doRedirects creds = do
 |]
                             sendResponse rh
                         Just ar -> do
-                            setMessage "Invalid login"
+                            setMessage $ mr Msg.InvalidLogin
                             redirect RedirectTemporary ar
                 else return ()
         Just aid -> do
             setSession credsKey $ toSinglePiece aid
             if doRedirects
                 then do
-                    setMessage "You are now logged in"
+                    setMessage $ mr Msg.NowLoggedIn
                     redirectUltDest RedirectTemporary $ loginDest y
                 else return ()
 
diff --git a/Yesod/Auth/Message.hs b/Yesod/Auth/Message.hs
index 8302a84c..f2d22c2e 100644
--- a/Yesod/Auth/Message.hs
+++ b/Yesod/Auth/Message.hs
@@ -31,6 +31,8 @@ data AuthMessage =
     | PassUpdated
     | Facebook
     | LoginViaEmail
+    | InvalidLogin
+    | NowLoggedIn
 
 defaultMessage :: AuthMessage -> Html
 defaultMessage NoOpenID = "No OpenID identifier found"
@@ -58,3 +60,5 @@ defaultMessage PassMismatch = "Passwords did not match, please try again"
 defaultMessage PassUpdated = "Password updated"
 defaultMessage Facebook = "Login with Facebook"
 defaultMessage LoginViaEmail = "Login via email"
+defaultMessage InvalidLogin = "Invalid login"
+defaultMessage NowLoggedIn = "You are now logged in"