Skip to content

Commit

Permalink
Fix #22, Don't use color codes in error messages
Browse files Browse the repository at this point in the history
  • Loading branch information
paf31 committed Jun 17, 2016
1 parent 0697678 commit e612d0a
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion server/Main.hs
Original file line number Diff line number Diff line change
Expand Up @@ -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 "<file>") (undefined, input) of
Left parseError ->
return . Left . printErrors . P.MultipleErrors . return . P.toPositionedError $ parseError
Expand Down

0 comments on commit e612d0a

Please sign in to comment.