Make showSDoc and printDoc use the same default width (100)

[ghc-hetmet.git] / compiler / utils / Pretty.lhs

diff --git a/compiler/utils/Pretty.lhs b/compiler/utils/Pretty.lhs
index 5219484..9041803 100644 (file)
--- 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