mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

excess indent

Browse source
This commit is contained in:
Joey Hess 2015-01-22 13:47:06 -04:00
parent f6d1825ce9
commit 91f1b2bdcf
1 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Utility/Url.hs
View file

@ -140,15 +140,15 @@ exists url uo = case parseURIRelaxed url of
(responseHeaders resp) (responseHeaders resp)
existsconduit req = withManager $ \mgr -> do existsconduit req = withManager $ \mgr -> do
let req' = headRequest (applyRequest uo req) let req' = headRequest (applyRequest uo req)
resp <- http req' mgr resp <- http req' mgr
-- forces processing the response before the -- forces processing the response before the
-- manager is closed -- manager is closed
ret <- if responseStatus resp == ok200 ret <- if responseStatus resp == ok200
then return (True, extractlen resp) then return (True, extractlen resp)
else liftIO dne else liftIO dne
liftIO $ closeManager mgr liftIO $ closeManager mgr
return ret return ret
#if MIN_VERSION_http_conduit(2,0,0) #if MIN_VERSION_http_conduit(2,0,0)
headRequest :: Request -> Request headRequest :: Request -> Request