From 90975e19c763fc1ba49aadcd2d68f69a13714db0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jan=20Hamal=20Dvo=C5=99=C3=A1k?= <mordae@anilinux.org>
Date: Thu, 16 May 2019 10:17:28 +0200
Subject: [PATCH] Use 303 for redirects
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Signed-off-by: Jan Hamal Dvořák <mordae@anilinux.org>
---
lib/Web/Hikaru/Action.hs | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/lib/Web/Hikaru/Action.hs b/lib/Web/Hikaru/Action.hs
index 14965d3..a3742a0 100644
--- a/lib/Web/Hikaru/Action.hs
+++ b/lib/Web/Hikaru/Action.hs
@@ -892,12 +892,13 @@ where
-- |
- -- Set the @Location@ header and response status to redirect the user
- -- elsewhere.
+ -- Set the response status to 303 (See Other), that will cause the browser
+ -- to obtain the address specified in the supplied @Location@ header using
+ -- the @GET@ method.
--
redirect :: (MonadAction m) => Text -> m ()
redirect location = do
- setStatus status302
+ setStatus status303
setHeader hLocation (cs location)
--
GitLab