Some more message (thanks to Mike Frai)

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 ()
 

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"