X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcoreSyn%2FCorePrep.lhs;fp=ghc%2Fcompiler%2FcoreSyn%2FCorePrep.lhs;h=8621ae1c2e00ac0b3f2314c053f05c9a25c83339;hb=a7ae6708217a4c6973be1d0a9965a63cf6a02ff3;hp=20e47d7c6f70190a1d2fc45089818bd043a9db77;hpb=c994c0e76bff57e297109e50b0d102c7116a3e55;p=ghc-hetmet.git

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