Simon Peyton Jones pushed to branch wip/T26831 at Glasgow Haskell Compiler / GHC
Commits:
-
d6e6ec76
by Simon Peyton Jones at 2026-02-13T09:11:29+00:00
1 changed file:
Changes:
| ... | ... | @@ -1583,6 +1583,8 @@ eta_would_wreck_join _ = False |
| 1583 | 1583 | |
| 1584 | 1584 | maybeSaturate :: Id -> CpeApp -> Int -> [CoreTickish] -> UniqSM CpeRhs
|
| 1585 | 1585 | maybeSaturate fn expr n_args unsat_ticks
|
| 1586 | + | isJoinId fn -- Never eta-expand a call to a join point
|
|
| 1587 | + = return expr
|
|
| 1586 | 1588 | | hasNoBinding fn || excess_arity > 0
|
| 1587 | 1589 | = return $ wrapLamBody (mkTicks unsat_ticks) sat_expr
|
| 1588 | 1590 | | otherwise
|