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-04-25 17:39:44 by partain]
[ghc-hetmet.git]
/
ghc
/
compiler
/
rename
/
RnNames.lhs
diff --git
a/ghc/compiler/rename/RnNames.lhs
b/ghc/compiler/rename/RnNames.lhs
index
d4c997a
..
388b8c2
100644
(file)
--- a/
ghc/compiler/rename/RnNames.lhs
+++ b/
ghc/compiler/rename/RnNames.lhs
@@
-340,8
+340,9
@@
doImportDecls iface_cache g_info us src_imps
imp_warns `unionBags` warns)
where
(ok_imps, src_qprels) = partition not_qual_prel src_imps
imp_warns `unionBags` warns)
where
(ok_imps, src_qprels) = partition not_qual_prel src_imps
- all_imps = qprel_imp ++ prel_imp ++ ok_imps
-
+ the_imps = prel_imp ++ ok_imps
+ all_imps = qprel_imp ++ the_imps
+
not_qual_prel (ImportDecl mod qual _ _ _) = not (fromPrelude mod && qual)
explicit_prelude_import
not_qual_prel (ImportDecl mod qual _ _ _) = not (fromPrelude mod && qual)
explicit_prelude_import
@@
-358,7
+359,7
@@
doImportDecls iface_cache g_info us src_imps
else
[ImportDecl pRELUDE False Nothing Nothing mkIfaceSrcLoc]
else
[ImportDecl pRELUDE False Nothing Nothing mkIfaceSrcLoc]
- (uniq_imps, imp_dups) = removeDups cmp_mod all_imps
+ (uniq_imps, imp_dups) = removeDups cmp_mod the_imps
cmp_mod (ImportDecl m1 _ _ _ _) (ImportDecl m2 _ _ _ _) = cmpPString m1 m2
imp_mods = [ mod | ImportDecl mod _ _ _ _ <- uniq_imps ]
cmp_mod (ImportDecl m1 _ _ _ _) (ImportDecl m2 _ _ _ _) = cmpPString m1 m2
imp_mods = [ mod | ImportDecl mod _ _ _ _ <- uniq_imps ]