Commit 75ba47fa authored by's avatar
Browse files

Show inlined function in the header of 'Inlining done' message

parent fc8c1160
......@@ -1025,7 +1025,7 @@ completeCall env var cont
Just unfolding -- There is an inlining!
-> do { tick (UnfoldingDone var)
; (if dopt Opt_D_dump_inlinings dflags then
pprTrace "Inlining done" (vcat [
pprTrace ("Inlining done" ++ showSDoc (ppr var)) (vcat [
text "Before:" <+> ppr var <+> sep (map pprParendExpr args),
text "Inlined fn: " <+> nest 2 (ppr unfolding),
text "Cont: " <+> ppr call_cont])
Supports Markdown
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