From: Simon Marlow <marlowsd@gmail.com>
Date: Mon, 14 Jul 2008 08:36:54 +0000 (+0000)
Subject: Make showSDoc and printDoc use the same default width (100)
X-Git-Tag: Before_cabalised-GHC~5
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=48a72931c4733260598cbc0e7a1f7080be20b830

Make showSDoc and printDoc use the same default width (100)
For some reason they were different (100/120), which made some tests
produce different output when I moved from showSDoc to printDoc for
error messages.
---

diff --git a/compiler/utils/Pretty.lhs b/compiler/utils/Pretty.lhs
index 5219484..9041803 100644
--- a/compiler/utils/Pretty.lhs
+++ b/compiler/utils/Pretty.lhs
@@ -994,7 +994,7 @@ spaces n | n <=# _ILIT(0) = ""
 
 \begin{code}
 pprCols :: Int
-pprCols = 120 -- could make configurable
+pprCols = 100 -- could make configurable
 
 -- NB. printDoc prints FastStrings in UTF-8: hPutFS below does no decoding.
 -- This is what we usually want, because the IO library has no encoding