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.
This commit is contained in:
parent
2def1d0a23
commit
cdbce512bd
1 changed files with 6 additions and 1 deletions
|
@ -176,7 +176,12 @@ getUrlInfo url uo = case parseURIRelaxed url of
|
||||||
filter (\p -> fst p == h) . responseHeaders
|
filter (\p -> fst p == h) . responseHeaders
|
||||||
|
|
||||||
existsconduit req = do
|
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)
|
let req' = headRequest (applyRequest uo req)
|
||||||
ret <- runResourceT $ do
|
ret <- runResourceT $ do
|
||||||
resp <- http req' mgr
|
resp <- http req' mgr
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue