X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FsimplCore%2FSimplify.lhs;h=be6eba32587592f60d502eaa9af9587faee77f04;hb=925cfa7c7e46494ff5c579214b6f2e4b840eb5b2;hp=d05e4a11e49b4ed805511170c4c8b369477c144b;hpb=4f56b4074079380d4b115a05d5aa71004f716710;p=ghc-hetmet.git

diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs
index d05e4a1..be6eba3 100644
--- a/compiler/simplCore/Simplify.lhs
+++ b/compiler/simplCore/Simplify.lhs
@@ -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])