diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2008-02-01 12:27:53 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2008-02-01 12:27:53 +0000 |
| commit | e4fa0854318cde1a317727ab3d29edc0ca772e9d (patch) | |
| tree | 24f5893404124b9029aa967aa1c16fb014365323 /compiler/stranal | |
| parent | 21c9699eb5175355db4c44643a58b3c532238400 (diff) | |
| download | haskell-e4fa0854318cde1a317727ab3d29edc0ca772e9d.tar.gz | |
FIX BUILD with GHC 6.4.x
Diffstat (limited to 'compiler/stranal')
| -rw-r--r-- | compiler/stranal/WwLib.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/stranal/WwLib.lhs b/compiler/stranal/WwLib.lhs index ec8f6227de..5f63a481bf 100644 --- a/compiler/stranal/WwLib.lhs +++ b/compiler/stranal/WwLib.lhs @@ -122,7 +122,7 @@ mkWwBodies :: Type -- Type of original function mkWwBodies fun_ty demands res_info one_shots = do (wrap_args, wrap_fn_args, work_fn_args, res_ty) <- mkWWargs fun_ty demands one_shots' (work_args, wrap_fn_str, work_fn_str) <- mkWWstr wrap_args - let (work_lam_args, work_call_args) = do mkWorkerArgs work_args res_ty + let (work_lam_args, work_call_args) = mkWorkerArgs work_args res_ty -- Don't do CPR if the worker doesn't have any value arguments -- Then the worker is just a constant, so we don't want to unbox it. (wrap_fn_cpr, work_fn_cpr, _cpr_res_ty) |