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

Login correctly uses redirectUltDest

Browse Source
This commit is contained in:
Michael Snoyman 2010-11-30 09:12:59 +02:00
parent e6c3fdf15f
commit 0eecb347d9
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Yesod/Helpers/Auth.hs
View File

@ -118,7 +118,7 @@ setCreds doRedirects creds = do
if doRedirects if doRedirects
then do then do
setMessage $ string "You are now logged in" setMessage $ string "You are now logged in"
redirect RedirectTemporary $ loginDest y redirectUltDest RedirectTemporary $ loginDest y
else return () else return ()
getCheckR :: YesodAuth m => GHandler Auth m RepHtmlJson getCheckR :: YesodAuth m => GHandler Auth m RepHtmlJson

2
yesod-auth.cabal
View File

@ -1,5 +1,5 @@
name: yesod-auth name: yesod-auth
version: 0.2.0.2 version: 0.2.0.3
license: BSD3 license: BSD3
license-file: LICENSE license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com> author: Michael Snoyman <michael@snoyman.com>