From a7ae6708217a4c6973be1d0a9965a63cf6a02ff3 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 29 Aug 2002 11:47:46 +0000
Subject: [PATCH] [project @ 2002-08-29 11:47:46 by simonmar] Add a ToDo note.

---
 ghc/compiler/coreSyn/CorePrep.lhs |    2 ++
 1 file changed, 2 insertions(+)

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 ->
-- 
1.7.10.4