From f381c69449fdf6ab8086f0aa49b813bcc7a60e0d Mon Sep 17 00:00:00 2001 From: Mark Wotton Date: Mon, 21 Mar 2016 13:43:36 -0400 Subject: [PATCH] expand range of acceptable redirection codes --- yesod-test/Yesod/Test.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/yesod-test/Yesod/Test.hs b/yesod-test/Yesod/Test.hs index 4e7afe0e..dea2a6a3 100644 --- a/yesod-test/Yesod/Test.hs +++ b/yesod-test/Yesod/Test.hs @@ -706,7 +706,7 @@ followRedirect = do case mr of Nothing -> return $ Left "no response, so no redirect to follow" Just r -> do - if not ((H.statusCode $ simpleStatus r) `elem` [301,303]) + if not ((H.statusCode $ simpleStatus r) `elem` [301, 302, 303, 307, 308]) then return $ Left "followRedirect called, but previous request was not a redirect" else do case lookup "Location" (simpleHeaders r) of