From db75d9fee7d48de8b7e12745e711a9a44b86961c Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Sun, 20 Jul 2008 15:53:08 +0000
Subject: Follow changes to ExportDecl in Hoogle

---
 src/Haddock/Backends/Hoogle.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'src/Haddock')

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
 
 
 ---------------------------------------------------------------------
-- 
cgit v1.2.3