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 /src/Haddock/Interface | |
| parent | 97e1bf46f4c747ac36afacc837313f4d7d5c917c (diff) | |
Remove unused ifaceLocals
Diffstat (limited to 'src/Haddock/Interface')
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 2 |
1 files changed, 0 insertions, 2 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 = [], |