From b1f143010e939ef6b180d636bfd14050eb39f945 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?S=C3=B6nke=20Hahn?= Date: Sun, 14 Aug 2016 20:13:46 +0200 Subject: [PATCH] servant-client: fix compilation when building with http-client < 0.4.30 --- servant-client/src/Servant/Common/Req.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/servant-client/src/Servant/Common/Req.hs b/servant-client/src/Servant/Common/Req.hs index eb921316..ea610cce 100644 --- a/servant-client/src/Servant/Common/Req.hs +++ b/servant-client/src/Servant/Common/Req.hs @@ -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.5.0/docs/src/Network-HTTP-Client-Request.html#parseRequest parseRequest :: MonadThrow m => String -> m Request -parseRequest url = disableStatusCheck <$> parseUrl url +parseRequest url = liftM disableStatusCheck (parseUrl url) where disableStatusCheck req = req { checkStatus = \ _status _headers _cookies -> Nothing } #endif