Set redirectToReferer to True #23

2026-01-12 04:08:29 +01:00 · 2014-11-11 18:50:09 +02:00 · 2014-11-11 18:50:09 +02:00 · dc5f703cbf
commit dc5f703cbf
parent 5b9ace6425
1 changed files with 2 additions and 0 deletions
--- a/Foundation.hs
+++ b/Foundation.hs
@ -163,6 +163,8 @@ instance YesodAuth App where
    -- Where to send a user after logout
    logoutDest _ = HomeR

+    redirectToReferer _ = True
+
    getAuthId creds = do
        muid <- maybeAuthId
        join $ runDB $ case muid of