diff options
| author | Neil Mitchell <unknown> | 2008-08-12 16:02:53 +0000 |
|---|---|---|
| committer | Neil Mitchell <unknown> | 2008-08-12 16:02:53 +0000 |
| commit | 8014ddbf8a61fa587bcfeb8008ce51027f2e91e4 (patch) | |
| tree | 741bfca7e6f7ce383101eeafb1ef3d7753bbbb3a | |
| parent | e01bbd7b4a7c3db9dd2ba4c78a6f35b6d1b6c91d (diff) | |
Output all items, even if they are not defined in this module - ensures map comes from Prelude, not just GHC.Base
| -rw-r--r-- | src/Haddock/Backends/Hoogle.hs | 9 |
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 --------------------------------------------------------------------- |