From 1cf3376346d32322f32acf65db9311b95842c308 Mon Sep 17 00:00:00 2001 From: Samuel Bronson Date: Mon, 16 Oct 2006 13:00:04 +0000 Subject: [PATCH] Don't squish "Inlined fn" into the right margin quite as much in trace output --- 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 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) $ -- 1.7.10.4