From: simonmar <unknown>
Date: Thu, 29 Aug 2002 11:47:46 +0000 (+0000)
Subject: [project @ 2002-08-29 11:47:46 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1744
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a7ae6708217a4c6973be1d0a9965a63cf6a02ff3;p=ghc-hetmet.git

[project @ 2002-08-29 11:47:46 by simonmar]
Add a ToDo note.
---

diff --git a/ghc/compiler/coreSyn/CorePrep.lhs b/ghc/compiler/coreSyn/CorePrep.lhs
index 20e47d7..8621ae1 100644
--- a/ghc/compiler/coreSyn/CorePrep.lhs
+++ b/ghc/compiler/coreSyn/CorePrep.lhs
@@ -439,6 +439,8 @@ corePrepExprFloat env expr@(App _ _)
 	  returnUs (Note note fun', hd, fun_ty, floats, ss)
 
 	-- non-variable fun, better let-bind it
+	-- ToDo: perhaps we can case-bind rather than let-bind this closure,
+	-- since it is sure to be evaluated.
     collect_args fun depth
 	= corePrepExprFloat env fun			`thenUs` \ (fun_floats, fun') ->
 	  newVar ty			 		`thenUs` \ fn_id ->