From: Samuel Bronson <naesten@gmail.com>
Date: Mon, 16 Oct 2006 13:00:04 +0000 (+0000)
Subject: Don't squish "Inlined fn" into the right margin quite as much in trace output
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=1cf3376346d32322f32acf65db9311b95842c308

Don't squish "Inlined fn" into the right margin quite as much in trace output
---

diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs
index bec02e6..2f881d5 100644
--- a/compiler/simplCore/Simplify.lhs
+++ b/compiler/simplCore/Simplify.lhs
@@ -1014,7 +1014,7 @@ completeCall env var cont
 		(if dopt Opt_D_dump_inlinings dflags then
 		   pprTrace "Inlining done" (vcat [
 			text "Before:" <+> ppr var <+> sep (map pprParendExpr args),
-			text "Inlined fn: " <+> ppr unfolding,
+			text "Inlined fn: " $$ nest 2 (ppr unfolding),
 			text "Cont:  " <+> ppr call_cont])
 		 else
 			id)		$