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/llvmGen | |
| 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/llvmGen')
| -rw-r--r-- | compiler/llvmGen/LlvmCodeGen/Base.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/llvmGen/LlvmCodeGen/Base.hs b/compiler/llvmGen/LlvmCodeGen/Base.hs index 686b352c2a..ea8836348d 100644 --- a/compiler/llvmGen/LlvmCodeGen/Base.hs +++ b/compiler/llvmGen/LlvmCodeGen/Base.hs @@ -406,7 +406,7 @@ strDisplayName_llvm lbl = do dflags <- getDynFlags let sdoc = pprCLabel platform lbl depth = Outp.PartWay 1 - style = Outp.mkUserStyle (\ _ _ -> Outp.NameNotInScope2, Outp.alwaysQualifyModules) depth + style = Outp.mkUserStyle (\ _ _ -> Outp.NameNotInScope2, Outp.alwaysQualifyModules) depth (useUnicodeSyntax dflags) str = Outp.renderWithStyle dflags sdoc style return (fsLit (dropInfoSuffix str)) @@ -424,7 +424,7 @@ strProcedureName_llvm lbl = do dflags <- getDynFlags let sdoc = pprCLabel platform lbl depth = Outp.PartWay 1 - style = Outp.mkUserStyle Outp.neverQualify depth + style = Outp.mkUserStyle Outp.neverQualify depth (useUnicodeSyntax dflags) str = Outp.renderWithStyle dflags sdoc style return (fsLit str) |