From dc5f703cbf7a7ebeccb4fcefeb6a31ed76a8cf87 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Tue, 11 Nov 2014 18:50:09 +0200
Subject: [PATCH] Set redirectToReferer to True #23

---
 Foundation.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Foundation.hs b/Foundation.hs
index 4e300d7..03ad1af 100644
--- 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