diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-08-24 17:20:01 +0100 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2021-08-24 17:23:58 +0100 |
| commit | 71e8094d3855d7c3a105ba5655f7995f94b84832 (patch) | |
| tree | 7528cc4edadce0f757e5ca4a43beb7f93a0160f5 /compiler/GHC/Utils/Logger.hs | |
| parent | fdb2bfab19f538c43b8138751da73a9b024a62a8 (diff) | |
| download | haskell-wip/t20276.tar.gz | |
Fix colourised output in error messageswip/t20276
This fixes a small mistake in 4dc681c7c0345ee8ae268749d98b419dabf6a3bc
which forced the dump rather than user style for error messages.
In particular, this change replaced `defaultUserStyle` with
`log_default_dump_context` rather than `log_default_user_context` which
meant the PprStyle was PprDump rather than PprUser for error messages.
https://gitlab.haskell.org/ghc/ghc/-/commit/4dc681c7c0345ee8ae268749d98b419dabf6a3bc?expanded=1&page=4#b62120081f64009b94c12d04ded5c68870d8c647_285_405
Fixes #20276
Diffstat (limited to 'compiler/GHC/Utils/Logger.hs')
| -rw-r--r-- | compiler/GHC/Utils/Logger.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Utils/Logger.hs b/compiler/GHC/Utils/Logger.hs index bf480b8394..48601dd655 100644 --- a/compiler/GHC/Utils/Logger.hs +++ b/compiler/GHC/Utils/Logger.hs @@ -402,7 +402,7 @@ defaultLogActionHPutStrDoc :: LogFlags -> Bool -> Handle -> SDoc -> IO () defaultLogActionHPutStrDoc logflags asciiSpace h d -- Don't add a newline at the end, so that successive -- calls to this log-action can output all on the same line - = printSDoc (log_default_dump_context logflags) (Pretty.PageMode asciiSpace) h d + = printSDoc (log_default_user_context logflags) (Pretty.PageMode asciiSpace) h d -- -- Note [JSON Error Messages] |