diff options
| -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], |