aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Haddock/Interface/Create.hs2
-rw-r--r--src/Haddock/Types.hs3
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],