aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2008-10-02 22:59:57 +0000
committerDavid Waern <david.waern@gmail.com>2008-10-02 22:59:57 +0000
commit8695d86b9f5d09b9587e81e56bd696f1f8ce2a7c (patch)
treeef2beefe08b7e314d13955f26c0a8a9d5c7ea348 /src/Haddock/Interface
parentc8c3936189741cab791958c770f421b2682a3087 (diff)
Remove ifaceEnv from Interface - it's no longer used
Diffstat (limited to 'src/Haddock/Interface')
-rw-r--r--src/Haddock/Interface/Create.hs2
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,