diff options
| author | David Waern <david.waern@gmail.com> | 2008-10-02 22:59:57 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2008-10-02 22:59:57 +0000 |
| commit | 8695d86b9f5d09b9587e81e56bd696f1f8ce2a7c (patch) | |
| tree | ef2beefe08b7e314d13955f26c0a8a9d5c7ea348 /src/Haddock/Interface | |
| parent | c8c3936189741cab791958c770f421b2682a3087 (diff) | |
Remove ifaceEnv from Interface - it's no longer used
Diffstat (limited to 'src/Haddock/Interface')
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs index 1d41216e..c3ae6338 100644 --- a/src/Haddock/Interface/Create.hs +++ b/src/Haddock/Interface/Create.hs @@ -60,7 +60,6 @@ createInterface ghcMod flags modMap = do famMap = Map.empty --mkFamMap decls' ignoreExps = Flag_IgnoreAllExports `elem` flags exportedNames = ghcExportedNames ghcMod - origEnv = Map.fromList [ (nameOccName n, n) | n <- exportedNames ] instances = ghcInstances ghcMod warnAboutFilteredDecls mod decls @@ -91,7 +90,6 @@ createInterface ghcMod flags modMap = do ifaceSubMap = subMap, ifaceExportItems = prunedExportItems, ifaceRnExportItems = [], - ifaceEnv = origEnv, ifaceExports = exportedNames, ifaceVisibleExports = visibleNames, ifaceDeclMap = declMap, |