From 8014ddbf8a61fa587bcfeb8008ce51027f2e91e4 Mon Sep 17 00:00:00 2001
From: Neil Mitchell <unknown>
Date: Tue, 12 Aug 2008 16:02:53 +0000
Subject: Output all items, even if they are not defined in this module -
 ensures map comes from Prelude, not just GHC.Base

---
 src/Haddock/Backends/Hoogle.hs | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

(limited to 'src')

diff --git a/src/Haddock/Backends/Hoogle.hs b/src/Haddock/Backends/Hoogle.hs
index 23fcf0c4..f327209d 100644
--- a/src/Haddock/Backends/Hoogle.hs
+++ b/src/Haddock/Backends/Hoogle.hs
@@ -50,15 +50,8 @@ ppHoogle package version ifaces odir = do
 ppModule :: Interface -> [String]
 ppModule iface = "" : doc (ifaceDoc iface) ++
                  ["module " ++ moduleString (ifaceMod iface)] ++
-                 concatMap ppExport exported ++
+                 concatMap ppExport (ifaceExportItems iface) ++
                  concatMap ppInstance (ifaceInstances iface)
-    where
-        locals = Set.fromList $ ifaceLocals iface
-        exported = [i | i@(ExportDecl{expItemDecl=decl}) <- ifaceExportItems iface
-                      , isLocal (unLoc decl)]
-        isLocal decl
-          | Just name <- getMainDeclBinder decl = name `Set.member` locals
-          | otherwise = False
 
 
 ---------------------------------------------------------------------
-- 
cgit v1.2.3