diff options
Diffstat (limited to 'compiler/GHC/Core/Opt/SpecConstr.hs')
| -rw-r--r-- | compiler/GHC/Core/Opt/SpecConstr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Core/Opt/SpecConstr.hs b/compiler/GHC/Core/Opt/SpecConstr.hs index 90f492ffea..1ce501e0b0 100644 --- a/compiler/GHC/Core/Opt/SpecConstr.hs +++ b/compiler/GHC/Core/Opt/SpecConstr.hs @@ -1785,7 +1785,7 @@ spec_one env fn arg_bndrs body (call_pat, rule_number) (spec_lam_args, spec_call_args, spec_arity, spec_join_arity) | needsVoidWorkerArg fn arg_bndrs spec_lam_args1 - , (spec_lam_args, spec_call_args, _) <- addVoidWorkerArg spec_lam_args1 [] + , (spec_lam_args, spec_call_args, _, _) <- addVoidWorkerArg spec_lam_args1 [] [] -- needsVoidWorkerArg: usual w/w hack to avoid generating -- a spec_rhs of unlifted type and no args. -- Unlike W/W we don't turn functions into strict workers |