7x31
/
shellcheck
mirror of https://github.com/koalaman/shellcheck.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Don't output ansi escape codes on Windows

This commit is contained in:
Vidar Holen 2015-06-07 18:08:23 -07:00
parent 65ab8c8ecb
commit 7fff088ce9
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
shellcheck.hs
View File

@ -21,6 +21,7 @@ import Control.Monad.Trans
import Control.Monad.Trans.Error import Control.Monad.Trans.Error
import Control.Monad.Trans.List import Control.Monad.Trans.List
import Data.Char import Data.Char
import Data.List
import Data.Maybe import Data.Maybe
import Data.Monoid import Data.Monoid
import GHC.Exts import GHC.Exts
@ -34,6 +35,7 @@ import System.Console.GetOpt
import System.Directory import System.Directory
import System.Environment import System.Environment
import System.Exit import System.Exit
import System.Info
import System.IO import System.IO
import Text.JSON import Text.JSON
import qualified Data.Map as Map import qualified Data.Map as Map
@ -154,7 +156,8 @@ forTty options files = do
getColorFunc = do getColorFunc = do
term <- hIsTerminalDevice stdout term <- hIsTerminalDevice stdout
return $ if term then colorComment else const id let windows = "mingw" `isPrefixOf` os
return $ if term && not windows then colorComment else const id
forJson :: AnalysisOptions -> [FilePath] -> IO Status forJson :: AnalysisOptions -> [FilePath] -> IO Status
forJson options files = catchExceptions $ do forJson options files = catchExceptions $ do