aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends/Hoogle.hs
diff options
context:
space:
mode:
authorNeil Mitchell <unknown>2008-08-12 16:02:53 +0000
committerNeil Mitchell <unknown>2008-08-12 16:02:53 +0000
commit8014ddbf8a61fa587bcfeb8008ce51027f2e91e4 (patch)
tree741bfca7e6f7ce383101eeafb1ef3d7753bbbb3a /src/Haddock/Backends/Hoogle.hs
parente01bbd7b4a7c3db9dd2ba4c78a6f35b6d1b6c91d (diff)
Output all items, even if they are not defined in this module - ensures map comes from Prelude, not just GHC.Base
Diffstat (limited to 'src/Haddock/Backends/Hoogle.hs')
-rw-r--r--src/Haddock/Backends/Hoogle.hs9
1 files changed, 1 insertions, 8 deletions
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
---------------------------------------------------------------------