From dfc006ad2b8f5cb27570ac02c77aa63c5c027cd9 Mon Sep 17 00:00:00 2001
From: Simon Hengel <sol@typeful.net>
Date: Sat, 22 Feb 2014 21:55:35 +0100
Subject: Turn a source code comment into specs

---
 src/Haddock/Parser.hs | 2 --
 1 file changed, 2 deletions(-)

(limited to 'src/Haddock')

diff --git a/src/Haddock/Parser.hs b/src/Haddock/Parser.hs
index a6ad817c..095f385e 100644
--- a/src/Haddock/Parser.hs
+++ b/src/Haddock/Parser.hs
@@ -306,8 +306,6 @@ birdtracks = DocCodeBlock . DocString . intercalate "\n" . stripSpace <$> many1
   where
     line = skipHorizontalSpace *> ">" *> takeLine
 
--- | Strip leading spaces, but ignore blank lines. If any of the lines don't
---   start with a ' ', however, we don't touch the block.
 stripSpace :: [String] -> [String]
 stripSpace = fromMaybe <*> mapM strip
   where
-- 
cgit v1.2.3