From c4fec35e32ccde79be154f3f6ef53f5b3cebd3da Mon Sep 17 00:00:00 2001 From: "david.waern" 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/Haddock') 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