eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

servant-client: fix compilation when building with http-client < 0.4.30

Browse source
This commit is contained in:
Sönke Hahn 2016-08-14 20:13:46 +02:00
parent 490502cad1
commit b1f143010e
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
servant-client/src/Servant/Common/Req.hs
View file

@ -138,7 +138,7 @@ reqToRequest req (BaseUrl reqScheme reqHost reqPort path) =
-- http://hackage.haskell.org/package/http-client-0.4.30/docs/src/Network-HTTP-Client-Request.html#parseRequest -- http://hackage.haskell.org/package/http-client-0.4.30/docs/src/Network-HTTP-Client-Request.html#parseRequest
-- http://hackage.haskell.org/package/http-client-0.5.0/docs/src/Network-HTTP-Client-Request.html#parseRequest -- http://hackage.haskell.org/package/http-client-0.5.0/docs/src/Network-HTTP-Client-Request.html#parseRequest
parseRequest :: MonadThrow m => String -> m Request parseRequest :: MonadThrow m => String -> m Request
parseRequest url = disableStatusCheck <$> parseUrl url parseRequest url = liftM disableStatusCheck (parseUrl url)
where where
disableStatusCheck req = req { checkStatus = \ _status _headers _cookies -> Nothing } disableStatusCheck req = req { checkStatus = \ _status _headers _cookies -> Nothing }
#endif #endif