haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

expand range of acceptable redirection codes

Browse Source
This commit is contained in:
Mark Wotton 2016-03-21 13:43:36 -04:00
parent 29c335af56
commit f381c69449
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-test/Yesod/Test.hs
View File

@ -706,7 +706,7 @@ followRedirect = do
case mr of case mr of
Nothing -> return $ Left "no response, so no redirect to follow" Nothing -> return $ Left "no response, so no redirect to follow"
Just r -> do 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" then return $ Left "followRedirect called, but previous request was not a redirect"
else do else do
case lookup "Location" (simpleHeaders r) of case lookup "Location" (simpleHeaders r) of