aboutsummaryrefslogtreecommitdiff
path: root/Utility/Url.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-10-02 15:18:54 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-10-02 15:18:54 -0400
commita4e008627b3f853d3d4de3d997a392bb489349a1 (patch)
tree6519516407f6b9fc5374d8f7519b24540b86a57e /Utility/Url.hs
parent78be7e95266412a04aed31062fde7d19c6f9e117 (diff)
deal with more backward-compatible breaking renamings in conduit
This is the kind of annoying thing that makes me not want to use a library. conduitManagerSettings was a perfectly fine name and could have been kept forever.
Diffstat (limited to 'Utility/Url.hs')
-rw-r--r--Utility/Url.hs7
1 files changed, 6 insertions, 1 deletions
diff --git a/Utility/Url.hs b/Utility/Url.hs
index 47bee5043..19568fda8 100644
--- a/Utility/Url.hs
+++ b/Utility/Url.hs
@@ -176,7 +176,12 @@ getUrlInfo url uo = case parseURIRelaxed url of
filter (\p -> fst p == h) . responseHeaders
existsconduit req = do
- mgr <- newManager tlsManagerSettings
+ mgr <- newManager
+#if MIN_VERSION_http_conduit(2,1,7)
+ tlsManagerSettings
+#else
+ conduitManagerSettings
+#endif
let req' = headRequest (applyRequest uo req)
ret <- runResourceT $ do
resp <- http req' mgr