From: simonpj@microsoft.com <unknown>
Date: Tue, 16 Oct 2007 12:45:35 +0000 (+0000)
Subject: Show inlined function in the header of 'Inlining done' message
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=75ba47fa64d358c569c214be669b6570533ae920

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

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