diff options
| author | simonmar <unknown> | 2002-08-29 11:47:46 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-08-29 11:47:46 +0000 |
| commit | a7ae6708217a4c6973be1d0a9965a63cf6a02ff3 (patch) | |
| tree | 2e9084d33adb632b54580ba971b7fbfdb20907c7 | |
| parent | c994c0e76bff57e297109e50b0d102c7116a3e55 (diff) | |
| download | haskell-a7ae6708217a4c6973be1d0a9965a63cf6a02ff3.tar.gz | |
[project @ 2002-08-29 11:47:46 by simonmar]
Add a ToDo note.
| -rw-r--r-- | ghc/compiler/coreSyn/CorePrep.lhs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ghc/compiler/coreSyn/CorePrep.lhs b/ghc/compiler/coreSyn/CorePrep.lhs index 20e47d7c6f..8621ae1c2e 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 -> |