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
|
||||
|
||||
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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue