diff options
author | Sebastian Graf <sebastian.graf@kit.edu> | 2022-11-22 19:07:27 +0100 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2022-12-15 10:07:46 +0000 |
commit | f9ce32c802451d3e60e942f534d6e15fef0fb10f (patch) | |
tree | 46c6928a096217f99099065e1aef647cef9a1430 /compiler/GHC/Stg/Lift/Analysis.hs | |
parent | bb4d238b675e5138d1a6ea46552528136e4142d8 (diff) | |
download | haskell-f9ce32c802451d3e60e942f534d6e15fef0fb10f.tar.gz |
DmdAnal: Reflect the `seq` of strict fields of a DataCon worker (#22475)
See the updated `Note [Data-con worker strictness]`
and the new `Note [Demand transformer for data constructors]`.
Fixes #22475.
(cherry picked from commit b4cfa8e235715d8c73b2ba0ba05ed8ef92629218)
Diffstat (limited to 'compiler/GHC/Stg/Lift/Analysis.hs')
-rw-r--r-- | compiler/GHC/Stg/Lift/Analysis.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Stg/Lift/Analysis.hs b/compiler/GHC/Stg/Lift/Analysis.hs index 6fc116c8bc..1a91100bc1 100644 --- a/compiler/GHC/Stg/Lift/Analysis.hs +++ b/compiler/GHC/Stg/Lift/Analysis.hs @@ -326,7 +326,7 @@ tagSkeletonRhs bndr (StgRhsClosure fvs ccs upd bndrs body) rhsCard :: Id -> Card rhsCard bndr | is_thunk = oneifyCard n - | otherwise = peelManyCalls (idArity bndr) cd + | otherwise = fst (peelManyCalls (idArity bndr) cd) where is_thunk = idArity bndr == 0 -- Let's pray idDemandInfo is still OK after unarise... |