excess indent

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