Merge pull request #923 from s9gf4ult/master

Perform `onLogout` before session cleaning
2015-02-04 14:20:12 -08:00 · 2015-02-04 14:20:12 -08:00 · df304d6393
commit df304d6393
parent c4824b9ceb e64773cd41
1 changed files with 1 additions and 1 deletions
--- a/yesod-auth/Yesod/Auth.hs
+++ b/yesod-auth/Yesod/Auth.hs
@ -295,9 +295,9 @@ clearCreds :: YesodAuth master
           -> HandlerT master IO ()
 clearCreds doRedirects = do
    y <- getYesod
+    onLogout
    deleteSession credsKey
    when doRedirects $ do
-        onLogout
        redirectUltDest $ logoutDest y

 getCheckR :: AuthHandler master TypedContent