Simon Peyton Jones pushed to branch wip/T26330 at Glasgow Haskell Compiler / GHC Commits: 6e80c6a4 by Simon Peyton Jones at 2025-09-16T17:45:55+01:00 Fix default values - - - - - 2 changed files: - compiler/GHC/Driver/DynFlags.hs - compiler/GHC/Utils/Outputable.hs Changes: ===================================== compiler/GHC/Driver/DynFlags.hs ===================================== @@ -708,8 +708,8 @@ defaultDynFlags mySettings = ghciBrowserPlaywrightLaunchOpts = Nothing, flushOut = defaultFlushOut, - pprUserLength = 5, - pprCols = 100, + pprUserLength = defaultSDocDepth, + pprCols = defaultSDocCols, useUnicode = False, useColor = Auto, canUseColor = False, ===================================== compiler/GHC/Utils/Outputable.hs ===================================== @@ -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 View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/6e80c6a495d4ad2942e630405135ab04... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/6e80c6a495d4ad2942e630405135ab04... You're receiving this email because of your account on gitlab.haskell.org.