From 0cc1e20f858393293b53ab0eae6ceedb40f27c33 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Wed, 28 Sep 2022 14:10:20 +0000
Subject: [PATCH] UX: Don't redirect to referer after login

It causes first login after verification to redirect to registration page,
which is weird, and the default Yesod falue is False, so, switching back to
False
---
 src/Vervis/Foundation.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Vervis/Foundation.hs b/src/Vervis/Foundation.hs
index 38b03ba..7eaeca3 100644
--- a/src/Vervis/Foundation.hs
+++ b/src/Vervis/Foundation.hs
@@ -605,7 +605,7 @@ instance YesodAuth App where
     -- Where to send a user after logout
     logoutDest _ = HomeR
     -- Override the above two destinations when a Referer: header is present
-    redirectToReferer _ = True
+    redirectToReferer _ = False
 
     authenticate creds = liftHandler $ do
         let ident = credsIdent creds