diff options
Diffstat (limited to 'compiler/GHC/Core/Opt/CprAnal.hs')
| -rw-r--r-- | compiler/GHC/Core/Opt/CprAnal.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Core/Opt/CprAnal.hs b/compiler/GHC/Core/Opt/CprAnal.hs index 8bebbb6dde..93614027fb 100644 --- a/compiler/GHC/Core/Opt/CprAnal.hs +++ b/compiler/GHC/Core/Opt/CprAnal.hs @@ -331,8 +331,8 @@ cprAnalBind top_lvl env id rhs cprExpandUnfolding_maybe :: Id -> Maybe CoreExpr cprExpandUnfolding_maybe id = do guard (idArity id == 0) - -- There are only phase 0 Simplifier runs after CPR analysis - guard (isActiveIn 0 (idInlineActivation id)) + -- There are only FinalPhase Simplifier runs after CPR analysis + guard (activeInFinalPhase (idInlineActivation id)) expandUnfolding_maybe (idUnfolding id) {- Note [Arity trimming for CPR signatures] |