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

Perform onLogout before session cleaning

Browse Source
This commit is contained in:
Aleksey Uimanov 2015-02-05 00:21:14 +05:00
parent c4824b9ceb
commit e64773cd41
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-auth/Yesod/Auth.hs
View File

@ -295,9 +295,9 @@ clearCreds :: YesodAuth master
-> HandlerT master IO () -> HandlerT master IO ()
clearCreds doRedirects = do clearCreds doRedirects = do
y <- getYesod y <- getYesod
onLogout
deleteSession credsKey deleteSession credsKey
when doRedirects $ do when doRedirects $ do
onLogout
redirectUltDest $ logoutDest y redirectUltDest $ logoutDest y
getCheckR :: AuthHandler master TypedContent getCheckR :: AuthHandler master TypedContent