X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FMkIface.lhs;fp=ghc%2Fcompiler%2Fmain%2FMkIface.lhs;h=e165020947ce1ad3baadd06ced77f0cb4f7bf791;hb=f5b2e1dd9c978790cacb1a5c1acd361eec5e4d44;hp=67363cace751714f6a79a30a503e4510a93175f2;hpb=272807076575eb2d82ed3227be184e61c9e2a58e;p=ghc-hetmet.git

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}