From dae0258a62a714fb7fd9b47473bf259eb858f9f1 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Mon, 11 Jan 2010 13:56:32 +0100
Subject: Readability++.

---
 src/Text/Hakyll/Util.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'src/Text/Hakyll/Util.hs')

diff --git a/src/Text/Hakyll/Util.hs b/src/Text/Hakyll/Util.hs
index 018c404..858b3fb 100644
--- a/src/Text/Hakyll/Util.hs
+++ b/src/Text/Hakyll/Util.hs
@@ -9,7 +9,8 @@ import Data.Char (isSpace)
 -- | Trim a string (drop spaces and tabs at both sides).
 trim :: String -> String
 trim = reverse . trim' . reverse . trim'
-    where trim' = dropWhile isSpace
+  where
+    trim' = dropWhile isSpace
 
 -- | Strip html tags.
 stripHTML :: String -> String
@@ -18,8 +19,9 @@ stripHTML str = let (beforeTag, rest) = break (== '<') str
                     (_, afterTag)     = break (== '>') rest
                 in beforeTag ++ (stripHTML $ tail' afterTag)
     -- We need a failsafe tail function.
-    where tail' [] = []
-          tail' xs = tail xs
+  where
+    tail' [] = []
+    tail' xs = tail xs
 
 -- | Make a HTML link.
 --
-- 
cgit v1.2.3