Simon Peyton Jones pushed to branch wip/T26831 at Glasgow Haskell Compiler / GHC
Commits:
-
6efd8505
by Simon Peyton Jones at 2026-02-12T17:14:05+00:00
1 changed file:
Changes:
| ... | ... | @@ -1539,12 +1539,12 @@ cpeArg env dmd arg |
| 1539 | 1539 | arg3 = cpeEtaExpand arity arg2
|
| 1540 | 1540 | -- See Note [Eta expansion of arguments in CorePrep]
|
| 1541 | 1541 | ; let (arg_float, v') = mkNonRecFloat env lev v arg3
|
| 1542 | - ; pprTraceM "cpeArg" (vcat [ text "arg1" <+> ppr arg1
|
|
| 1543 | - , text "decision" <+> ppr dec
|
|
| 1544 | - , text "arg2" <+> ppr arg2
|
|
| 1545 | - , text "arity" <+> ppr arity
|
|
| 1546 | - , text "arg3" <+> ppr arg3
|
|
| 1547 | - ])
|
|
| 1542 | +-- ; pprTraceM "cpeArg" (vcat [ text "arg1" <+> ppr arg1
|
|
| 1543 | +-- , text "decision" <+> ppr dec
|
|
| 1544 | +-- , text "arg2" <+> ppr arg2
|
|
| 1545 | +-- , text "arity" <+> ppr arity
|
|
| 1546 | +-- , text "arg3" <+> ppr arg3
|
|
| 1547 | +-- ])
|
|
| 1548 | 1548 | ; return (snocFloat floats2 arg_float, varToCoreExpr v') }
|
| 1549 | 1549 | }
|
| 1550 | 1550 |