X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Futils%2FPretty.lhs;fp=compiler%2Futils%2FPretty.lhs;h=90418037293b7a41d60d2cec19ec1e10b5630d1a;hb=48a72931c4733260598cbc0e7a1f7080be20b830;hp=5219484569c7b817e16f270b7d46764cd4977f88;hpb=d502cd03812e1c6452927d40e31e81c0594e899e;p=ghc-hetmet.git

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