From 8695d86b9f5d09b9587e81e56bd696f1f8ce2a7c Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Thu, 2 Oct 2008 22:59:57 +0000
Subject: Remove ifaceEnv from Interface - it's no longer used

---
 src/Haddock/Interface/Create.hs | 2 --
 src/Haddock/Types.hs            | 3 ---
 2 files changed, 5 deletions(-)

(limited to 'src/Haddock')

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],
 
-- 
cgit v1.2.3