diff options
Diffstat (limited to 'Utility')
| -rw-r--r-- | Utility/Url.hs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/Utility/Url.hs b/Utility/Url.hs index 9d131353a..b6af123b9 100644 --- a/Utility/Url.hs +++ b/Utility/Url.hs @@ -140,15 +140,15 @@ exists url uo = case parseURIRelaxed url of (responseHeaders resp) existsconduit req = withManager $ \mgr -> do - let req' = headRequest (applyRequest uo req) - resp <- http req' mgr - -- forces processing the response before the - -- manager is closed - ret <- if responseStatus resp == ok200 - then return (True, extractlen resp) - else liftIO dne - liftIO $ closeManager mgr - return ret + let req' = headRequest (applyRequest uo req) + resp <- http req' mgr + -- forces processing the response before the + -- manager is closed + ret <- if responseStatus resp == ok200 + then return (True, extractlen resp) + else liftIO dne + liftIO $ closeManager mgr + return ret #if MIN_VERSION_http_conduit(2,0,0) headRequest :: Request -> Request |