Email backend: fix broken login redirects
This commit is contained in:
parent
0bca582b01
commit
107062422b
2
scripts
2
scripts
@ -1 +1 @@
|
||||
Subproject commit 5c174c61daeca7430e75a3d32da2bf783eac7776
|
||||
Subproject commit b626b414228dd4b948bb27e255a26b2f395a93a4
|
||||
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user