diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2014-06-07 12:05:51 +0200 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2014-06-07 12:05:51 +0200 |
| commit | 4a4e684f4334a93fc2a52abb1e959989d3e61ed0 (patch) | |
| tree | df9c69c8b3da9cbfa36805f319fecaeeea6f0d85 /compiler/main/DynFlags.hs | |
| parent | b36bc2f5a9757c2b7e6967893cf2883846b8ce91 (diff) | |
| download | haskell-wip/T8959.tar.gz | |
Pass the information on UnicodeSyntax from error location to the pretty-printerwip/T8959
This improves upon #8959.
Diffstat (limited to 'compiler/main/DynFlags.hs')
| -rw-r--r-- | compiler/main/DynFlags.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index 0c493863b4..0034464eba 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -1536,7 +1536,7 @@ printInfoForUser = printSevForUser SevInfo printSevForUser :: Severity -> DynFlags -> PrintUnqualified -> SDoc -> IO () printSevForUser sev dflags unqual doc - = log_action dflags dflags sev noSrcSpan (mkUserStyle unqual AllTheWay) doc + = log_action dflags dflags sev noSrcSpan (mkUserStyle unqual AllTheWay (useUnicodeSyntax dflags)) doc {- Note [Verbosity levels] |