diff options
Diffstat (limited to 'compiler/GHC/CoreToStg/Prep.hs')
| -rw-r--r-- | compiler/GHC/CoreToStg/Prep.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/compiler/GHC/CoreToStg/Prep.hs b/compiler/GHC/CoreToStg/Prep.hs index fa9496b4c5..7b52fd637b 100644 --- a/compiler/GHC/CoreToStg/Prep.hs +++ b/compiler/GHC/CoreToStg/Prep.hs @@ -1636,10 +1636,12 @@ tryEtaReducePrep bndrs expr@(App _ _) , exprIsHNF remaining_expr -- Don't turn value into a non-value -- else the behaviour with 'seq' changes = - -- pprTrace "prep-reduce" ( - -- text "reduced:" <> ppr remaining_expr $$ - -- ppr (remaining_args) - -- ) $ + -- pprTrace "prep-reduce" (vcat + -- [ text "reduced:" <+> ppr expr + -- , text "from" <+> ppr (length args) <+> text "to" <+> ppr n_remaining + -- , (case f of Var v -> text "has strict worker:" <+> ppr (idCbvMarkArity v) <+> ppr n_remaining_vals; _ -> empty) + -- , ppr remaining_args + -- ]) $ Just remaining_expr where (f, args) = collectArgs expr |