diff options
| author | David Waern <david.waern@gmail.com> | 2008-07-12 16:55:21 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2008-07-12 16:55:21 +0000 |
| commit | fdd8e13d1462e63556a90bdaecf694bc7ba4c10c (patch) | |
| tree | 69818916e3e09869a81964c080b5a08adbf38c54 /src/Haddock/GHC | |
| parent | 32868490786d0328c59097915d5c56d3220d2a86 (diff) | |
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.
Diffstat (limited to 'src/Haddock/GHC')
| -rw-r--r-- | src/Haddock/GHC/Typecheck.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 } |