Readability++.

1 files changed, 7 insertions, 5 deletions

diff --git a/src/Text/Hakyll/CompressCSS.hs b/src/Text/Hakyll/CompressCSS.hs
index 4b35558..f9a062c 100644
--- a/src/Text/Hakyll/CompressCSS.hs
+++ b/src/Text/Hakyll/CompressCSS.hs
@@ -24,8 +24,10 @@ compressWhitespace = substituteRegex "[ \t\n][ \t\n]*" " "
 -- | Function that strips CSS comments away.
 stripComments :: String -> String
 stripComments [] = []
-stripComments str | isPrefixOf "/*" str = stripComments $ eatComments $ drop 2 str
-                  | otherwise = (head str) : (stripComments $ tail str)
-    where eatComments str' | null str' = []
-                           | isPrefixOf "*/" str' = drop 2 str'
-                           | otherwise = eatComments $ tail str'
+stripComments str
+    | isPrefixOf "/*" str = stripComments $ eatComments $ drop 2 str
+    | otherwise = (head str) : (stripComments $ tail str)
+  where
+    eatComments str' | null str' = []
+                     | isPrefixOf "*/" str' = drop 2 str'
+                     | otherwise = eatComments $ tail str'