haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-17 06:38:29 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Set redirectToReferer to True #23

Browse Source
This commit is contained in:
Michael Snoyman 2014-11-11 18:50:09 +02:00
parent 5b9ace6425
commit dc5f703cbf
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Foundation.hs
View File

@ -163,6 +163,8 @@ instance YesodAuth App where
-- Where to send a user after logout -- Where to send a user after logout
logoutDest _ = HomeR logoutDest _ = HomeR
redirectToReferer _ = True
getAuthId creds = do getAuthId creds = do
muid <- maybeAuthId muid <- maybeAuthId
join $ runDB $ case muid of join $ runDB $ case muid of