X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDsArrows.lhs;h=43df99ce8d386e427df676f135c9e3778783d379;hb=80baa709ce8e257a74f88d97f32e6c049c58ba11;hp=82fc612a82738ee369fdaae7189659f8ea3b6317;hpb=9d2575d7bef0774c05b509854a54a57941ffb925;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsArrows.lhs b/ghc/compiler/deSugar/DsArrows.lhs
index 82fc612..43df99c 100644
--- a/ghc/compiler/deSugar/DsArrows.lhs
+++ b/ghc/compiler/deSugar/DsArrows.lhs
@@ -822,7 +822,7 @@ dsCmdStmt ids local_vars env_ids out_ids (LetStmt binds)
 --			arr (\((xs1),(xs2)) -> (xs')) >>> ss'
 
 dsCmdStmt ids local_vars env_ids out_ids (RecStmt stmts later_ids rec_ids rhss binds)
-  = let		-- ****** binds not desugared; ROSS PLEASE FIX ********
+  = let		-- ToDo: ****** binds not desugared; ROSS PLEASE FIX ********
 	env2_id_set = mkVarSet out_ids `minusVarSet` mkVarSet later_ids
 	env2_ids = varSetElems env2_id_set
 	env2_ty = mkTupleType env2_ids