From cdbce512bd100ee279f26eabe5dd15a7a71749cd Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 2 Oct 2015 15:18:54 -0400 Subject: [PATCH] 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. --- Utility/Url.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/Utility/Url.hs b/Utility/Url.hs index 47bee5043c..19568fda81 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