haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Email backend: fix broken login redirects

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scripts

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

4
yesod-auth/Yesod/Auth/Email.hs
View File

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

2
yesod-auth/yesod-auth.cabal
View File

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