diff options
| author | David Waern <david.waern@gmail.com> | 2008-07-20 15:53:08 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2008-07-20 15:53:08 +0000 |
| commit | db75d9fee7d48de8b7e12745e711a9a44b86961c (patch) | |
| tree | fc5d552f63be7b7e83b80bcc857466016cdd6ea8 /src/Haddock/Backends | |
| parent | 9f215339900126328ccbdef6527634c34f44d56b (diff) | |
Follow changes to ExportDecl in Hoogle
Diffstat (limited to 'src/Haddock/Backends')
| -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 --------------------------------------------------------------------- |