diff options
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 6b46b5125c..dbb9504813 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 = n `multCard` peelManyCalls (idArity bndr) cd + | otherwise = n `multCard` (fst $ peelManyCalls (idArity bndr) cd) where is_thunk = idArity bndr == 0 -- Let's pray idDemandInfo is still OK after unarise... |