Commit 1cf33763 authored by SamB's avatar SamB
Browse files

Don't squish "Inlined fn" into the right margin quite as much in trace output

parent 8e7115fd
......@@ -1014,7 +1014,7 @@ completeCall env var cont
(if dopt Opt_D_dump_inlinings dflags then
pprTrace "Inlining done" (vcat [
text "Before:" <+> ppr var <+> sep (map pprParendExpr args),
text "Inlined fn: " <+> ppr unfolding,
text "Inlined fn: " $$ nest 2 (ppr unfolding),
text "Cont: " <+> ppr call_cont])
else
id) $
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment