diff options
Diffstat (limited to 'src/compiler/GF/CompileOne.hs')
| -rw-r--r-- | src/compiler/GF/CompileOne.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/compiler/GF/CompileOne.hs b/src/compiler/GF/CompileOne.hs index 6aac4011b..0a6572134 100644 --- a/src/compiler/GF/CompileOne.hs +++ b/src/compiler/GF/CompileOne.hs @@ -27,6 +27,7 @@ import GF.System.Directory(doesFileExist,getCurrentDirectory,renameFile) import System.FilePath(makeRelative) import qualified Data.Map as Map import GF.Text.Pretty(render,(<+>),($$)) --Doc, +import GF.System.Console(TermColors(..),getTermColors) import Control.Monad((<=<)) type OneOutput = (Maybe FullPath,CompiledModule) @@ -161,7 +162,8 @@ idump opts pass = intermOut opts (Dump pass) . ppModule Internal warnOut opts warnings | null warnings = done - | otherwise = do ePutStr "\ESC[34m";ePutStr ws;ePutStrLn "\ESC[m" + | otherwise = do t <- getTermColors + ePutStr (blueFg t);ePutStr ws;ePutStrLn (restore t) where ws = if flag optVerbosity opts == Normal then '\n':warnings |