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 | |
| parent | c8c3936189741cab791958c770f421b2682a3087 (diff) | |
Remove ifaceEnv from Interface - it's no longer used
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 2 | ||||
| -rw-r--r-- | src/Haddock/Types.hs | 3 |
2 files changed, 0 insertions, 5 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, diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs index 49ed8c32..f30be4c3 100644 --- a/src/Haddock/Types.hs +++ b/src/Haddock/Types.hs @@ -130,9 +130,6 @@ data Interface = Interface { ifaceExportItems :: [ExportItem Name], ifaceRnExportItems :: [ExportItem DocName], - -- | Environment mapping exported names to *original* names - ifaceEnv :: Map OccName Name, - -- | All the names that are defined in this module ifaceLocals :: [Name], |