diff options
| -rw-r--r-- | Utility/Url.hs | 7 |
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 |