From 92f24a73dc0302b160ee612744d36ef935fd93d2 Mon Sep 17 00:00:00 2001
From: Mark Wotton <mwotton@gmail.com>
Date: Mon, 21 Mar 2016 13:44:26 -0400
Subject: [PATCH] better error messages for followRedirect

---
 yesod-test/Yesod/Test.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/yesod-test/Yesod/Test.hs b/yesod-test/Yesod/Test.hs
index dea2a6a3..f886b399 100644
--- a/yesod-test/Yesod/Test.hs
+++ b/yesod-test/Yesod/Test.hs
@@ -704,13 +704,13 @@ followRedirect :: Yesod site
 followRedirect = do
   mr <- getResponse
   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
      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
-          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 ())
 
 -- | Sets the HTTP method used by the request.