From 812530516d97f80a5c424db31b8b5ed541cb6a0c Mon Sep 17 00:00:00 2001 From: simonpj Date: Mon, 6 Dec 1999 10:50:29 +0000 Subject: [PATCH] [project @ 1999-12-06 10:50:29 by simonpj] Change printDump so that it prints in user style by default. This means that (eg) -ddump-simpl output is much more readable... but you may get confused by variables that look the same but aren't. To recover the previous behaviour use -dppr-debug This change only affects compiler hackers; let me know if it has any good or bad effects. Simon --- ghc/compiler/utils/Outputable.lhs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/ghc/compiler/utils/Outputable.lhs b/ghc/compiler/utils/Outputable.lhs index c79b577..4508e1b 100644 --- a/ghc/compiler/utils/Outputable.lhs +++ b/ghc/compiler/utils/Outputable.lhs @@ -160,9 +160,13 @@ printErrs doc = printDoc PageMode stderr (final_doc user_style) user_style = mkUserStyle (PartWay opt_PprUserLength) printDump :: SDoc -> IO () -printDump doc = printDoc PageMode stderr (final_doc PprDebug) +printDump doc = printDoc PageMode stderr (final_doc user_style) where final_doc = doc $$ text "" + user_style = mkUserStyle (PartWay opt_PprUserLength) + -- We used to always print in debug style, but I want + -- to try the effect of a more user-ish style (unless you + -- say -dppr-debug -- printForC, printForAsm doe what they sound like -- 1.7.10.4