diff options
| -rw-r--r-- | compiler/simplCore/SimplUtils.hs | 3 | ||||
| -rw-r--r-- | compiler/simplCore/Simplify.hs | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/compiler/simplCore/SimplUtils.hs b/compiler/simplCore/SimplUtils.hs index 7c0689d9be..fbf9b3ee89 100644 --- a/compiler/simplCore/SimplUtils.hs +++ b/compiler/simplCore/SimplUtils.hs @@ -1116,7 +1116,8 @@ preInlineUnconditionally env top_lvl bndr rhs rhs_env | not active = Nothing | isTopLevel top_lvl && isBottomingId bndr = Nothing -- Note [Top-level bottoming Ids] | isCoVar bndr = Nothing -- Note [Do not inline CoVars unconditionally] - | isExitJoinId bndr = Nothing -- Note [Do not inline exit join points] in Exitify + | isExitJoinId bndr = Nothing -- Note [Do not inline exit join points] + -- in module Exitify | not (one_occ (idOccInfo bndr)) = Nothing | not (isStableUnfolding unf) = Just (extend_subst_with rhs) diff --git a/compiler/simplCore/Simplify.hs b/compiler/simplCore/Simplify.hs index d92f6d7e44..249d19f5ca 100644 --- a/compiler/simplCore/Simplify.hs +++ b/compiler/simplCore/Simplify.hs @@ -3292,7 +3292,7 @@ simplLetUnfolding env top_lvl cont_mb id new_rhs rhs_ty unf | isStableUnfolding unf = simplStableUnfolding env top_lvl cont_mb id unf rhs_ty | isExitJoinId id - = return noUnfolding -- see Note [Do not inline exit join points] + = return noUnfolding -- See Note [Do not inline exit join points] in Exitify | otherwise = mkLetUnfolding (seDynFlags env) top_lvl InlineRhs id new_rhs |