From a64dbd046c9b5d6dd3b62b65aee5e7616c0642ef Mon Sep 17 00:00:00 2001
From: Neil Mitchell <unknown>
Date: Sat, 14 Jun 2008 12:27:07 +0000
Subject: Remove <document comment> from the Hoogle output

---
 src/Haddock/Backends/Hoogle.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Haddock/Backends/Hoogle.hs b/src/Haddock/Backends/Hoogle.hs
index 5f9a60a9..33d77bef 100644
--- a/src/Haddock/Backends/Hoogle.hs
+++ b/src/Haddock/Backends/Hoogle.hs
@@ -56,7 +56,11 @@ dropComment [] = []
 
 
 out :: Outputable a => a -> String
-out = unwords . map (dropWhile isSpace) . lines . showSDocUnqual . ppr
+out = f . unwords . map (dropWhile isSpace) . lines . showSDocUnqual . ppr
+    where
+        f xs | " <document comment>" `isPrefixOf` xs = f $ drop 19 xs
+        f (x:xs) = x : f xs
+        f [] = []
 
 
 typeSig :: String -> [String] -> String
-- 
cgit v1.2.3