diff options
| author | Ben Lippmeier <benl@ouroborus.net> | 2010-12-08 07:02:45 +0000 |
|---|---|---|
| committer | Ben Lippmeier <benl@ouroborus.net> | 2010-12-08 07:02:45 +0000 |
| commit | 38113ad2138652700dc4461cd2d7ab073f9716ac (patch) | |
| tree | c376c7ae64840cf6c3a869d33db62fa43da955d6 /compiler/utils/Pretty.lhs | |
| parent | 1e4f900ade324e2db2f886a11d7cb571ad5f180c (diff) | |
| download | haskell-38113ad2138652700dc4461cd2d7ab073f9716ac.tar.gz | |
Add -dppr-colsN to set width of dumps
Diffstat (limited to 'compiler/utils/Pretty.lhs')
| -rw-r--r-- | compiler/utils/Pretty.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/utils/Pretty.lhs b/compiler/utils/Pretty.lhs index 317022d669..a518c0b6f6 100644 --- a/compiler/utils/Pretty.lhs +++ b/compiler/utils/Pretty.lhs @@ -185,7 +185,7 @@ import BufWrite import FastString import FastTypes import Panic - +import StaticFlags import Numeric (fromRat) import System.IO --import Foreign.Ptr (castPtr) @@ -999,7 +999,7 @@ spaces n | n <=# _ILIT(0) = "" \begin{code} pprCols :: Int -pprCols = 100 -- could make configurable +pprCols = opt_PprCols printDoc :: Mode -> Handle -> Doc -> IO () printDoc LeftMode hdl doc |