Perform onLogout before session cleaning

2015-02-05 00:21:14 +05:00 · 2015-02-05 00:21:14 +05:00 · e64773cd41
commit e64773cd41
parent c4824b9ceb
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