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.

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