From 9ae1088fd211df4796dcd0a99c048e09a7c61d51 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Tue, 16 Nov 2010 01:14:15 +0000
Subject: hlint police

---
 src/Haddock/Backends/Hoogle.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/Haddock/Backends/Hoogle.hs')

diff --git a/src/Haddock/Backends/Hoogle.hs b/src/Haddock/Backends/Hoogle.hs
index e597bab0..b9296be5 100644
--- a/src/Haddock/Backends/Hoogle.hs
+++ b/src/Haddock/Backends/Hoogle.hs
@@ -240,13 +240,12 @@ markupTag = Markup {
   markupCodeBlock     = box TagPre,
   markupURL           = box (TagInline "a") . str,
   markupAName         = const $ str "",
-  markupExample       = box TagPre . str . unlines . (map exampleToString)
+  markupExample       = box TagPre . str . unlines . map exampleToString
   }
 
 
 showTags :: [Tag] -> [String]
-showTags = concat . intersperse [""] . map showBlock
-    where
+showTags = intercalate [""] . map showBlock
 
 
 showBlock :: Tag -> [String]
-- 
cgit v1.2.3