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:
2728070
)
[project @ 2003-04-08 13:03:42 by simonpj]
author
simonpj
<unknown>
Tue, 8 Apr 2003 13:03:42 +0000
(13:03 +0000)
committer
simonpj
<unknown>
Tue, 8 Apr 2003 13:03:42 +0000
(13:03 +0000)
ToDo comments
ghc/compiler/main/MkIface.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/main/MkIface.lhs
b/ghc/compiler/main/MkIface.lhs
index
67363ca
..
e165020
100644
(file)
--- a/
ghc/compiler/main/MkIface.lhs
+++ b/
ghc/compiler/main/MkIface.lhs
@@
-498,6
+498,7
@@
mkUsageInfo hsc_env eps
where
usages = catMaybes [ mkUsage mod_name
| (mod_name,_) <- moduleEnvElts dep_mods]
where
usages = catMaybes [ mkUsage mod_name
| (mod_name,_) <- moduleEnvElts dep_mods]
+ -- ToDo: do we need to sort into canonical order?
hpt = hsc_HPT hsc_env
pit = eps_PIT eps
hpt = hsc_HPT hsc_env
pit = eps_PIT eps
@@
-557,6
+558,7
@@
mkUsageInfo hsc_env eps
ent_vers = [(n, lookupVersion version_env n)
| n <- sortLt lt_occ used_names ]
lt_occ n1 n2 = nameOccName n1 < nameOccName n2
ent_vers = [(n, lookupVersion version_env n)
| n <- sortLt lt_occ used_names ]
lt_occ n1 n2 = nameOccName n1 < nameOccName n2
+ -- ToDo: is '<' on OccNames the right thing; may differ between runs?
\end{code}
\begin{code}
\end{code}
\begin{code}