Email backend: fix broken login redirects

This commit is contained in:
Michael Snoyman 2011-12-13 16:48:37 +02:00
parent 0bca582b01
commit 107062422b
3 changed files with 4 additions and 4 deletions

@ -1 +1 @@
Subproject commit 5c174c61daeca7430e75a3d32da2bf783eac7776
Subproject commit b626b414228dd4b948bb27e255a26b2f395a93a4

View File

@ -203,7 +203,7 @@ getPasswordR = do
Just _ -> return ()
Nothing -> do
setMessageI Msg.BadSetPass
redirect RedirectTemporary $ toMaster loginR
redirect RedirectTemporary $ toMaster LoginR
defaultLayout $ do
setTitleI Msg.SetPassTitle
addWidget
@ -238,7 +238,7 @@ postPasswordR = do
aid <- case maid of
Nothing -> do
setMessageI Msg.BadSetPass
redirect RedirectTemporary $ toMaster loginR
redirect RedirectTemporary $ toMaster LoginR
Just aid -> return aid
salted <- liftIO $ saltPass new
setPassword aid salted

View File

@ -1,5 +1,5 @@
name: yesod-auth
version: 0.7.7.1
version: 0.7.7.2
license: BSD3
license-file: LICENSE
author: Michael Snoyman, Patrick Brisbin