From c222a65270a95a59307377f81522a46d95db6e9a Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 22 Jan 2015 13:47:06 -0400
Subject: excess indent

---
 Utility/Url.hs | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'Utility')

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
-- 
cgit v1.2.3