diff --git a/lib/Web/Hikaru/Action.hs b/lib/Web/Hikaru/Action.hs index 14965d320e31aadb9a851278c0ce2b4c94e12433..a3742a013ab1aa8cb0cf7dd67a2916589b00bc44 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)