diff options
| author | simonpj <unknown> | 1999-12-06 10:50:29 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 1999-12-06 10:50:29 +0000 |
| commit | 812530516d97f80a5c424db31b8b5ed541cb6a0c (patch) | |
| tree | 1e5463501a119732fecdf8235e6ee1db795b1097 | |
| parent | f4d5a3ffe8ccafec95760d920eaf9e209c189ffc (diff) | |
| download | haskell-812530516d97f80a5c424db31b8b5ed541cb6a0c.tar.gz | |
[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
| -rw-r--r-- | ghc/compiler/utils/Outputable.lhs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/ghc/compiler/utils/Outputable.lhs b/ghc/compiler/utils/Outputable.lhs index c79b577e51..4508e1b34a 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 |