From c4fec35e32ccde79be154f3f6ef53f5b3cebd3da Mon Sep 17 00:00:00 2001
From: "david.waern" <david.waern@gmail.com>
Date: Wed, 24 Feb 2010 22:58:02 +0000
Subject: Remove unused ifaceLocals

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

(limited to 'src')

diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index 7aa7dcb4..7a0a2e16 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -65,7 +65,6 @@ createInterface ghcMod flags modMap instIfaceMap = do
       decls         = filterOutInstances decls0
       declMap       = mkDeclMap decls
       exports       = fmap (reverse . map unLoc) (ghcMbExports ghcMod)
-      localNames    = ghcDefinedNames ghcMod
       ignoreExps    = Flag_IgnoreAllExports `elem` flags
       exportedNames = ghcExportedNames ghcMod
 
@@ -90,7 +89,6 @@ createInterface ghcMod flags modMap instIfaceMap = do
     ifaceDoc             = mbDoc,
     ifaceRnDoc           = Nothing,
     ifaceOptions         = opts,
-    ifaceLocals          = localNames,
     ifaceRnDocMap        = Map.empty,
     ifaceExportItems     = prunedExportItems,
     ifaceRnExportItems   = [],
diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs
index f65f88e9..4e076a26 100644
--- a/src/Haddock/Types.hs
+++ b/src/Haddock/Types.hs
@@ -198,9 +198,6 @@ data Interface = Interface {
   ifaceExportItems     :: ![ExportItem Name],
   ifaceRnExportItems   :: [ExportItem DocName],
 
-  -- | All names defined in the module.
-  ifaceLocals          :: ![Name],
-
   -- | All names exported by the module.
   ifaceExports         :: ![Name],
 
-- 
cgit v1.2.3