GitLab

2df0ec18
by Simon Peyton Jones at 2026-02-13T09:08:55+00:00
```
Comment out dead code
```

@@ -1622,8 +1622,8 @@ maybeSaturate fn expr n_args unsat_ticks
      fn_arity      = idArity fn
      excess_arity  = (max fn_arity mark_arity) - n_args
      sat_expr      = cpeEtaExpand excess_arity expr
 -    applied_marks = n_args >= (length . dropWhile (not . isMarkedCbv) .
 -                               reverse . expectJust $ (idCbvMarks_maybe fn))
 +--    applied_marks = n_args >= (length . dropWhile (not . isMarkedCbv) .
 +--                               reverse . expectJust $ (idCbvMarks_maybe fn))
      -- For join points we never eta-expand (See Note [Do not eta-expand join points])
      -- so we assert all arguments that need to be passed cbv are visible so that the
      -- backend can evalaute them if required..