GitLab

6e80c6a4
by Simon Peyton Jones at 2025-09-16T17:45:55+01:00
```
Fix default values
```

@@ -708,8 +708,8 @@ defaultDynFlags mySettings =
          ghciBrowserPlaywrightLaunchOpts = Nothing,
          flushOut = defaultFlushOut,
 -        pprUserLength = 5,
 -        pprCols = 100,
 +        pprUserLength = defaultSDocDepth,
 +        pprCols = defaultSDocCols,
          useUnicode = False,
          useColor = Auto,
          canUseColor = False,

@@ -103,6 +103,7 @@ module GHC.Utils.Outputable (
          updSDocContext,
          SDocContext (..), sdocWithContext,
          defaultSDocContext, traceSDocContext,
 +        defaultSDocDepth, defaultSDocCols,
          getPprStyle, withPprStyle, setStyleColoured,
          pprDeeper, pprDeeperList, pprSetDepth,
          codeStyle, userStyle, dumpStyle,
@@ -451,6 +452,12 @@ instance IsString SDoc where
  instance Outputable SDoc where
    ppr = id
 +defaultSDocDepth :: Int
 +defaultSDocDepth = 6
++
 +defaultSDocCols :: Int
 +defaultSDocCols = 100
++
  -- | Default pretty-printing options
  defaultSDocContext :: SDocContext
  defaultSDocContext = SDC
@@ -458,8 +465,8 @@ defaultSDocContext = SDC
    , sdocColScheme                   = Col.defaultScheme
    , sdocLastColour                  = Col.colReset
    , sdocShouldUseColor              = False
 -  , sdocDefaultDepth                = 6
 -  , sdocLineLength                  = 100
 +  , sdocDefaultDepth                = defaultSDocDepth
 +  , sdocLineLength                  = defaultSDocCols
    , sdocCanUseUnicode               = False
    , sdocPrintErrIndexLinks          = False
    , sdocHexWordLiterals             = False