From: simonpj <unknown>
Date: Mon, 6 Dec 1999 10:50:29 +0000 (+0000)
Subject: [project @ 1999-12-06 10:50:29 by simonpj]
X-Git-Tag: Approximately_9120_patches~5428
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=812530516d97f80a5c424db31b8b5ed541cb6a0c;p=ghc-hetmet.git

[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
---

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