diff options
| author | Sebastian Graf <sebastian.graf@kit.edu> | 2022-04-14 21:21:27 +0200 |
|---|---|---|
| committer | Sebastian Graf <sebastian.graf@kit.edu> | 2022-04-19 12:49:26 +0200 |
| commit | 78aae867e3b3e8d84bcbffde18857efff06acd3d (patch) | |
| tree | 0618d52bcbe966bc449cd32c893a2518c6e18f1c /compiler/GHC/Core/Opt/SpecConstr.hs | |
| parent | 79d69ad7548ef103974e77df2db6444ea031dd4b (diff) | |
| download | haskell-wip/T21392.tar.gz | |
A fix for #21392wip/T21392
One that also refactors worker/wrapper to transfer demands onto workers
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 |