From fdd8e13d1462e63556a90bdaecf694bc7ba4c10c Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Sat, 12 Jul 2008 16:55:21 +0000
Subject: Get the all locally defined names from GHC API

We previously had some code to compute all locally defined names in
a module including subordinate names. We don't need it since we can
get the names from modInfoTyThings in the GHC API.
---
 src/Haddock/GHC/Typecheck.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Haddock/GHC/Typecheck.hs')

diff --git a/src/Haddock/GHC/Typecheck.hs b/src/Haddock/GHC/Typecheck.hs
index 2a9811c9..f0626231 100644
--- a/src/Haddock/GHC/Typecheck.hs
+++ b/src/Haddock/GHC/Typecheck.hs
@@ -75,6 +75,7 @@ mkGhcModule (mod, file, checkedMod) dynflags = GhcModule {
   ghcGroup          = group,
   ghcMbExports      = mbExports,
   ghcExportedNames  = modInfoExports modInfo,
+  ghcDefinedNames   = map getName $ modInfoTyThings modInfo,
   ghcNamesInScope   = fromJust $ modInfoTopLevelScope modInfo, 
   ghcInstances      = modInfoInstances modInfo
 }
-- 
cgit v1.2.3