diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2021-05-12 14:59:08 +0200 |
|---|---|---|
| committer | Andreas Klebinger <klebinger.andreas@gmx.at> | 2021-05-12 14:59:08 +0200 |
| commit | c281f882ec3f17918073d4e26a73f9b5a99efbf7 (patch) | |
| tree | d1bc2805c1bc709968c9598263e27ee93fe03566 | |
| parent | 11561c9b2fdea56b6c1568933c7cfe8340b70e68 (diff) | |
| download | haskell-wip/andreask/T19766.tar.gz | |
Remove todowip/andreask/T19766
| -rw-r--r-- | compiler/GHC/Core/Opt/WorkWrap.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Core/Opt/WorkWrap.hs b/compiler/GHC/Core/Opt/WorkWrap.hs index e9d330c005..12a53a2d9a 100644 --- a/compiler/GHC/Core/Opt/WorkWrap.hs +++ b/compiler/GHC/Core/Opt/WorkWrap.hs @@ -614,7 +614,7 @@ splitFun :: DynFlags -> FamInstEnvs -> Id -> IdInfo -> [Demand] -> Divergence -> -> UniqSM [(Id, CoreExpr)] splitFun dflags fam_envs fn_id fn_info wrap_dmds div cpr join_arg_unfs rhs | isRecordSelector fn_id -- See Note [No worker/wrapper for record selectors] - = return [ (fn_id, rhs ) ] -- TODO: Should really be done inside tryWW + = return [ (fn_id, rhs ) ] | otherwise = WARN( not (wrap_dmds `lengthIs` arity), ppr fn_id <+> (ppr arity $$ ppr wrap_dmds $$ ppr cpr) ) |