From 75ba47fa64d358c569c214be669b6570533ae920 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Tue, 16 Oct 2007 12:45:35 +0000
Subject: [PATCH] Show inlined function in the header of 'Inlining done'
 message

---
 compiler/simplCore/Simplify.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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])
-- 
1.7.10.4