From: simonpj <unknown>
Date: Tue, 8 Apr 2003 13:03:42 +0000 (+0000)
Subject: [project @ 2003-04-08 13:03:42 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~989
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f5b2e1dd9c978790cacb1a5c1acd361eec5e4d44;p=ghc-hetmet.git

[project @ 2003-04-08 13:03:42 by simonpj]
ToDo comments
---

diff --git a/ghc/compiler/main/MkIface.lhs b/ghc/compiler/main/MkIface.lhs
index 67363ca..e165020 100644
--- 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]
+	-- ToDo: do we need to sort into canonical order?
 
     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
+	-- ToDo: is '<' on OccNames the right thing; may differ between runs?
 \end{code}
 
 \begin{code}