projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ae3ba7e
)
Remove some unused bindings frm RnNames.
author
Lemmih
<lemmih@gmail.com>
Fri, 24 Feb 2006 16:54:09 +0000
(16:54 +0000)
committer
Lemmih
<lemmih@gmail.com>
Fri, 24 Feb 2006 16:54:09 +0000
(16:54 +0000)
ghc/compiler/rename/RnNames.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/rename/RnNames.lhs
b/ghc/compiler/rename/RnNames.lhs
index
6e2bb6f
..
a3db173
100644
(file)
--- 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,
rnImports, mkRdrEnvAndImports, importsFromLocalDecls,
rnExports, mkExportNameSet,
getLocalDeclBinders, extendRdrEnvRn,
- reportUnusedNames, reportDeprecations,
- mkModDeps
+ reportUnusedNames, reportDeprecations
) where
#include "HsVersions.h"
) where
#include "HsVersions.h"
@@
-215,12
+214,8
@@
importsFromImportDeclDirect this_mod
warnIf (want_boot && not (mi_boot iface))
(warnRedundantSourceImport imp_mod_name)
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
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
-- If the module exports anything defined in this module, just ignore it.
-- Reason: otherwise it looks as if there are two local definition sites