From e612d0ad736e15997ba41cdafab6b638d5d7d08e Mon Sep 17 00:00:00 2001 From: Phil Freeman Date: Thu, 16 Jun 2016 23:01:59 -0700 Subject: [PATCH] Fix #22, Don't use color codes in error messages --- server/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/server/Main.hs b/server/Main.hs index c9dc2649..745d4bd1 100644 --- a/server/Main.hs +++ b/server/Main.hs @@ -65,7 +65,7 @@ server externs port = do compile input | length input > 20000 = return $ Left "Please limit your input to 20000 characters" | otherwise = do - let printErrors = P.prettyPrintMultipleErrors P.defaultPPEOptions + let printErrors = P.prettyPrintMultipleErrors (P.defaultPPEOptions { P.ppeCodeColor = Nothing }) case P.parseModuleFromFile (const "") (undefined, input) of Left parseError -> return . Left . printErrors . P.MultipleErrors . return . P.toPositionedError $ parseError