duplicated typesig
This commit is contained in:
parent
23278d651e
commit
94109d9406
@ -704,8 +704,6 @@ get url = request $ do
|
|||||||
-- > followRedirect
|
-- > followRedirect
|
||||||
followRedirect :: Yesod site
|
followRedirect :: Yesod site
|
||||||
=> YesodExample site (Either T.Text T.Text) -- ^ 'Left' with an error message if not a redirect, 'Right' with the redirected URL if it was
|
=> YesodExample site (Either T.Text T.Text) -- ^ 'Left' with an error message if not a redirect, 'Right' with the redirected URL if it was
|
||||||
followRedirect :: Yesod site
|
|
||||||
=> YesodExample site (Either T.Text T.Text)
|
|
||||||
followRedirect = do
|
followRedirect = do
|
||||||
mr <- getResponse
|
mr <- getResponse
|
||||||
case mr of
|
case mr of
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user