diff options
| author | david.waern <david.waern@gmail.com> | 2010-02-24 22:58:02 +0000 |
|---|---|---|
| committer | david.waern <david.waern@gmail.com> | 2010-02-24 22:58:02 +0000 |
| commit | c4fec35e32ccde79be154f3f6ef53f5b3cebd3da (patch) | |
| tree | 34d13ba03cb8e688ccc28fccb65cf91184143090 | |
| parent | 97e1bf46f4c747ac36afacc837313f4d7d5c917c (diff) | |
Remove unused ifaceLocals
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 2 | ||||
| -rw-r--r-- | src/Haddock/Types.hs | 3 |
2 files changed, 0 insertions, 5 deletions
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], |