projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1996-05-20 13:15:10 by partain]
[ghc-hetmet.git]
/
ghc
/
compiler
/
rename
/
Rename.lhs
diff --git
a/ghc/compiler/rename/Rename.lhs
b/ghc/compiler/rename/Rename.lhs
index
47ed0fd
..
409abef
100644
(file)
--- a/
ghc/compiler/rename/Rename.lhs
+++ b/
ghc/compiler/rename/Rename.lhs
@@
-164,15
+164,9
@@
renameModule us input@(HsModule mod _ _ imports _ _ _ _ _ _ _ _ _ _)
pair_orig rn = (origName rn, rn)
pair_orig rn = (origName rn, rn)
- -- we must ensure that the definitions of things in the BuiltinKey
- -- table which may be *required* by the typechecker etc are read.
- -- We *hack* in a requirement for Ix.Ix here
- -- (it's the one thing that doesn't come from Prelude.<blah>)
-
must_haves
must_haves
- = (RnImplicitClass (mkBuiltinName ixClassKey SLIT("Ix") SLIT("Ix")))
- : [ name_fn (mkBuiltinName u pRELUDE str)
- | (str, (u, name_fn)) <- fmToList b_keys,
+ = [ name_fn (mkBuiltinName u mod str)
+ | ((str, mod), (u, name_fn)) <- fmToList b_keys,
str `notElem` [ SLIT("main"), SLIT("mainPrimIO")] ]
in
-- ASSERT (isEmptyBag orig_occ_dups)
str `notElem` [ SLIT("main"), SLIT("mainPrimIO")] ]
in
-- ASSERT (isEmptyBag orig_occ_dups)