documentation fixes

2016-03-21 17:20:02 -04:00 · 2016-03-21 17:20:02 -04:00 · f2341355c1
commit f2341355c1
parent ef00ddd80b
1 changed files with 2 additions and 1 deletions
--- a/yesod-test/Yesod/Test.hs
+++ b/yesod-test/Yesod/Test.hs
@ -695,12 +695,13 @@ get url = request $ do
    setUrl url

 -- | Follow a redirect, if the last response was a redirect.
+-- | (We consider 301, 302, 303, 307 and 308 as redirects.)
 -- | Return Left with an error message if not a redirect
 -- | Return Right with the redirected URL if it was.
 --
 -- ==== __Examples__
-- > get HomeR
 --
+-- > get HomeR
 -- > followRedirect
 followRedirect :: Yesod site
               =>  YesodExample site (Either T.Text T.Text)