where indenting

1 files changed, 7 insertions, 7 deletions

diff --git a/Backend/URL.hs b/Backend/URL.hs
index cc9112a36..81c287cfd 100644
--- a/Backend/URL.hs
+++ b/Backend/URL.hs
@@ -32,10 +32,10 @@ fromUrl url size = stubKey
 	, keyBackendName = "URL"
 	, keySize = size
 	}
-	where
-		-- when it's not too long, use the url as the key name
-		-- 256 is the absolute filename max, but use a shorter
-		-- length because this is not the entire key filename.
-		key
-			| length url < 128 = url
-			| otherwise = take 128 url ++ "-" ++ md5s (Str url)
+  where
+	{- when it's not too long, use the url as the key name
+	 - 256 is the absolute filename max, but use a shorter
+	 - length because this is not the entire key filename. -}
+	key
+		| length url < 128 = url
+		| otherwise = take 128 url ++ "-" ++ md5s (Str url)