diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-05-03 11:59:30 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-05-05 03:25:31 -0400 |
| commit | 40c71c2cf38b4e134d81b7184a4d5e02949ae70c (patch) | |
| tree | b3b635ef15d246f3b1e0a3b27698d54545a1ea73 | |
| parent | 2420c555e6cb681f4ef7c4ae3192a850ab431759 (diff) | |
| download | haskell-40c71c2cf38b4e134d81b7184a4d5e02949ae70c.tar.gz | |
Fix colorized error messages (#18128)
In b3df9e780fb2f5658412c644849cd0f1e6f50331 I broke colorized messages
by using "dump" style instead of "user" style. This commits fixes it.
| -rw-r--r-- | compiler/GHC/Driver/Session.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Driver/Session.hs b/compiler/GHC/Driver/Session.hs index 9d8eed590f..0b76ce47e3 100644 --- a/compiler/GHC/Driver/Session.hs +++ b/compiler/GHC/Driver/Session.hs @@ -1593,7 +1593,7 @@ defaultLogActionHPutStrDoc dflags 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 ctx Pretty.PageMode h d - where ctx = initSDocContext dflags defaultDumpStyle + where ctx = initSDocContext dflags defaultUserStyle newtype FlushOut = FlushOut (IO ()) |