From e64773cd41fb82fac05ce9345b9ac2113c001eea Mon Sep 17 00:00:00 2001 From: Aleksey Uimanov Date: Thu, 5 Feb 2015 00:21:14 +0500 Subject: [PATCH] Perform `onLogout` before session cleaning --- yesod-auth/Yesod/Auth.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/yesod-auth/Yesod/Auth.hs b/yesod-auth/Yesod/Auth.hs index 75672053..35eaa6ec 100644 --- 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