diff options
| author | Lemmih <lemmih@gmail.com> | 2006-02-24 16:54:09 +0000 |
|---|---|---|
| committer | Lemmih <lemmih@gmail.com> | 2006-02-24 16:54:09 +0000 |
| commit | 822b7a9d6926446d921728fbbf448456d70db87e (patch) | |
| tree | 205cf3ceeda5b64af8bff9b3969c3c7128de10dc /ghc/compiler/rename | |
| parent | ae3ba7ec40abde9719c98bd4d54832f9ea910e8b (diff) | |
| download | haskell-822b7a9d6926446d921728fbbf448456d70db87e.tar.gz | |
Remove some unused bindings frm RnNames.
Diffstat (limited to 'ghc/compiler/rename')
| -rw-r--r-- | ghc/compiler/rename/RnNames.lhs | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/ghc/compiler/rename/RnNames.lhs b/ghc/compiler/rename/RnNames.lhs index 6e2bb6f2b8..a3db173a6f 100644 --- a/ghc/compiler/rename/RnNames.lhs +++ b/ghc/compiler/rename/RnNames.lhs @@ -8,8 +8,7 @@ module RnNames ( rnImports, mkRdrEnvAndImports, importsFromLocalDecls, rnExports, mkExportNameSet, getLocalDeclBinders, extendRdrEnvRn, - reportUnusedNames, reportDeprecations, - mkModDeps + reportUnusedNames, reportDeprecations ) where #include "HsVersions.h" @@ -215,12 +214,8 @@ importsFromImportDeclDirect this_mod warnIf (want_boot && not (mi_boot iface)) (warnRedundantSourceImport imp_mod_name) - let deprecs = mi_deprecs iface - is_orph = mi_orphan iface - deps = mi_deps iface - filtered_exports = filter not_this_mod (mi_exports iface) + let filtered_exports = filter not_this_mod (mi_exports iface) not_this_mod (mod,_) = mod /= this_mod - imp_mod = mi_module iface -- If the module exports anything defined in this module, just ignore it. -- Reason: otherwise it looks as if there are two local definition sites |