Simon Peyton Jones pushed to branch wip/T23109a at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • compiler/GHC/Core/Opt/OccurAnal.hs
    ... ... @@ -1114,7 +1114,7 @@ occAnalNonRecRhs !env lvl imp_rule_edges mb_join bndr rhs
    1114 1114
     
    
    1115 1115
     mkNonRecRhsCtxt :: TopLevelFlag -> Id -> Unfolding -> OccEncl
    
    1116 1116
     -- Precondition: Id is not a join point
    
    1117
    -mkNonRecRhsCtxt lvl bndr unf
    
    1117
    +mkNonRecRhsCtxt _lvl bndr unf
    
    1118 1118
       | certainly_inline = OccVanilla -- See Note [Cascading inlines]
    
    1119 1119
       | otherwise        = OccRhs
    
    1120 1120
       where