git.iko.soy/typeable/servant
on master help sign in
servant-client: fix compilation when building with http-client < 0.4.30
commitb1f143010e939ef6b180d636bfd14050eb39f945 authorSönke Hahn <soenkehahn@gmail.com> dateSun 14 Aug 2016, 20:13 (10 years ago) parent490502c
1 file changed+1−1
compare with master
unifiedsplit
servant-client/src/Servant/Common/Req.hs+1−1
servant-client/src/Servant/Common/Req.hs+1−1
@@ -138,7 +138,7 @@ reqToRequest req (BaseUrl reqScheme reqHost reqPort path) =
138138-- http://hackage.haskell.org/package/http-client-0.4.30/docs/src/Network-HTTP-Client-Request.html#parseRequest
139139-- http://hackage.haskell.org/package/http-client-0.5.0/docs/src/Network-HTTP-Client-Request.html#parseRequest
140140parseRequest :: MonadThrow m => String -> m Request
141−parseRequest url = disableStatusCheck <$> parseUrl url
141+parseRequest url = liftM disableStatusCheck (parseUrl url)
142142 where
143143 disableStatusCheck req = req { checkStatus = \ _status _headers _cookies -> Nothing }
144144#endif