Commit 822b7a9d authored by David Himmelstrup's avatar David Himmelstrup
Browse files

Remove some unused bindings frm RnNames.

parent ae3ba7ec
...@@ -8,8 +8,7 @@ module RnNames ( ...@@ -8,8 +8,7 @@ module RnNames (
rnImports, mkRdrEnvAndImports, importsFromLocalDecls, rnImports, mkRdrEnvAndImports, importsFromLocalDecls,
rnExports, mkExportNameSet, rnExports, mkExportNameSet,
getLocalDeclBinders, extendRdrEnvRn, getLocalDeclBinders, extendRdrEnvRn,
reportUnusedNames, reportDeprecations, reportUnusedNames, reportDeprecations
mkModDeps
) where ) where
#include "HsVersions.h" #include "HsVersions.h"
...@@ -215,12 +214,8 @@ importsFromImportDeclDirect this_mod ...@@ -215,12 +214,8 @@ importsFromImportDeclDirect this_mod
warnIf (want_boot && not (mi_boot iface)) warnIf (want_boot && not (mi_boot iface))
(warnRedundantSourceImport imp_mod_name) (warnRedundantSourceImport imp_mod_name)
let deprecs = mi_deprecs iface let filtered_exports = filter not_this_mod (mi_exports iface)
is_orph = mi_orphan iface
deps = mi_deps iface
filtered_exports = filter not_this_mod (mi_exports iface)
not_this_mod (mod,_) = mod /= this_mod not_this_mod (mod,_) = mod /= this_mod
imp_mod = mi_module iface
-- If the module exports anything defined in this module, just ignore it. -- If the module exports anything defined in this module, just ignore it.
-- Reason: otherwise it looks as if there are two local definition sites -- Reason: otherwise it looks as if there are two local definition sites
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment