diff options
| -rw-r--r-- | src/Haddock/Backends/Hoogle.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/Haddock/Backends/Hoogle.hs b/src/Haddock/Backends/Hoogle.hs index ccf92d8c..53d99846 100644 --- a/src/Haddock/Backends/Hoogle.hs +++ b/src/Haddock/Backends/Hoogle.hs @@ -14,6 +14,7 @@ module Haddock.Backends.Hoogle ( import Haddock.Types import Haddock.GHC +import Haddock.GHC.Utils import GHC hiding ((<.>)) import SrcLoc import Outputable @@ -48,8 +49,11 @@ ppModule iface = "" : doc (ifaceDoc iface) ++ concatMap ppInstance (ifaceInstances iface) where locals = Set.fromList $ ifaceLocals iface - exported = [i | i@(ExportDecl{expItemName=name}) <- ifaceExportItems iface - , name `Set.member` locals] + exported = [i | i@(ExportDecl{expItemDecl=decl}) <- ifaceExportItems iface + , isLocal (unLoc decl)] + isLocal decl + | Just name <- getMainDeclBinder decl = name `Set.member` locals + | otherwise = False --------------------------------------------------------------------- |