diff options
Diffstat (limited to 'compiler/main/DynFlags.hs')
| -rw-r--r-- | compiler/main/DynFlags.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index 429857ad62..f809bc330f 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -1894,6 +1894,10 @@ initDynFlags dflags = do do str' <- peekCString enc cstr return (str == str')) `catchIOError` \_ -> return False + maybeGhcNoUnicodeEnv <- lookupEnv "GHC_NO_UNICODE" + let adjustNoUnicode (Just _) = False + adjustNoUnicode Nothing = True + let useUnicode' = (adjustNoUnicode maybeGhcNoUnicodeEnv) && canUseUnicode canUseColor <- stderrSupportsAnsiColors maybeGhcColorsEnv <- lookupEnv "GHC_COLORS" maybeGhcColoursEnv <- lookupEnv "GHC_COLOURS" @@ -1909,7 +1913,7 @@ initDynFlags dflags = do dirsToClean = refDirsToClean, generatedDumps = refGeneratedDumps, nextWrapperNum = wrapperNum, - useUnicode = canUseUnicode, + useUnicode = useUnicode', useColor = useColor', canUseColor = canUseColor, colScheme = colScheme', |