From 7fff088ce94b199a54398b84755f03562d7c4c20 Mon Sep 17 00:00:00 2001
From: Vidar Holen <spam@vidarholen.net>
Date: Sun, 7 Jun 2015 18:08:23 -0700
Subject: [PATCH] Don't output ansi escape codes on Windows

---
 shellcheck.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/shellcheck.hs b/shellcheck.hs
index 7111c83..9333213 100644
--- a/shellcheck.hs
+++ b/shellcheck.hs
@@ -21,6 +21,7 @@ import Control.Monad.Trans
 import Control.Monad.Trans.Error
 import Control.Monad.Trans.List
 import Data.Char
+import Data.List
 import Data.Maybe
 import Data.Monoid
 import GHC.Exts
@@ -34,6 +35,7 @@ import System.Console.GetOpt
 import System.Directory
 import System.Environment
 import System.Exit
+import System.Info
 import System.IO
 import Text.JSON
 import qualified Data.Map as Map
@@ -154,7 +156,8 @@ forTty options files = do
 
     getColorFunc = do
         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 options files = catchExceptions $ do