projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
c994c0e
)
[project @ 2002-08-29 11:47:46 by simonmar]
author
simonmar
<unknown>
Thu, 29 Aug 2002 11:47:46 +0000
(11:47 +0000)
committer
simonmar
<unknown>
Thu, 29 Aug 2002 11:47:46 +0000
(11:47 +0000)
Add a ToDo note.
ghc/compiler/coreSyn/CorePrep.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/coreSyn/CorePrep.lhs
b/ghc/compiler/coreSyn/CorePrep.lhs
index
20e47d7
..
8621ae1
100644
(file)
--- 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 ->