carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-11-05 04:44:12 +03:00
Code Issues Projects Releases Wiki Activity

Re-enable colorized text.

Browse Source
This commit is contained in:
Erik Svedäng 2019-10-15 09:41:41 +02:00
parent 787f29e629
commit c3e35e5b7d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ColorText.hs
View File

@ -24,7 +24,7 @@ putStrWithColor :: TextColor -> String -> IO ()
putStrWithColor color str =
do
istty <- hSupportsANSIColor stdout
putStr $ if istty && platform /= Windows && False then strWithColor color str else str
putStr $ if istty && platform /= Windows then strWithColor color str else str
putStrLnWithColor :: TextColor -> String -> IO ()
putStrLnWithColor color str = putStrWithColor color (str ++ "\n")