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

better error messages for followRedirect

Browse Source
This commit is contained in:
Mark Wotton 2016-03-21 13:44:26 -04:00
parent f381c69449
commit 92f24a73dc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -704,13 +704,13 @@ followRedirect :: Yesod site
followRedirect = do followRedirect = do
mr <- getResponse mr <- getResponse
case mr of case mr of
Nothing -> return $ Left "no response, so no redirect to follow" Nothing -> return $ Left "followRedirect called, but there was no previous response, so no redirect to follow"
Just r -> do Just r -> do
if not ((H.statusCode $ simpleStatus r) `elem` [301, 302, 303, 307, 308]) 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
Nothing -> return $ Left "No location header set" Nothing -> return $ Left "followRedirect called, but no location header set"
Just h -> get (TE.decodeUtf8 h) >> return (Right ()) Just h -> get (TE.decodeUtf8 h) >> return (Right ())
-- | Sets the HTTP method used by the request. -- | Sets the HTTP method used by the request.