diff options
Diffstat (limited to 'src/Haddock/Backends')
| -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 --------------------------------------------------------------------- |