From: simonpj@microsoft.com <unknown>
Date: Tue, 13 Jan 2009 17:58:06 +0000 (+0000)
Subject: Improve trace message
X-Git-Tag: 2009-03-13~147
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=e3cb60d26917d7be1b34030b1e5a579fbef9d067

Improve trace message
---

diff --git a/compiler/coreSyn/CoreUnfold.lhs b/compiler/coreSyn/CoreUnfold.lhs
index 38513af..496d7a0 100644
--- a/compiler/coreSyn/CoreUnfold.lhs
+++ b/compiler/coreSyn/CoreUnfold.lhs
@@ -634,14 +634,14 @@ callSiteInline dflags active_inline id lone_variable arg_infos cont_info
 		
     in    
     if dopt Opt_D_dump_inlinings dflags then
-	pprTrace "Considering inlining"
-		 (ppr id <+> vcat [text "active:" <+> ppr active_inline,
-			  	   text "arg infos" <+> ppr arg_infos,
-				   text "interesting continuation" <+> ppr cont_info,
-				   text "is value:" <+> ppr is_value,
-				   text "is cheap:" <+> ppr is_cheap,
-				   text "guidance" <+> ppr guidance,
-				   text "ANSWER =" <+> if yes_or_no then text "YES" else text "NO"])
+	pprTrace ("Considering inlining: " ++ showSDoc (ppr id))
+		 (vcat [text "active:" <+> ppr active_inline,
+			text "arg infos" <+> ppr arg_infos,
+			text "interesting continuation" <+> ppr cont_info,
+			text "is value:" <+> ppr is_value,
+			text "is cheap:" <+> ppr is_cheap,
+			text "guidance" <+> ppr guidance,
+			text "ANSWER =" <+> if yes_or_no then text "YES" else text "NO"])
 		  result
     else
     result