ansi-terminal colors

Colors.hs

module Colors where

import qualified System.Console.ANSI as ANSI

main :: IO ()
main = putStrLn text

text :: String
text =
  concat
  ["Here is the color ", withRed "Red", " And"
  ,"\nhere is the color ", withBlue "Blue"
  ]


-- Colors

withColor :: ANSI.Color -> String -> String
withColor color string =
  concat
   [ANSI.setSGRCode [ANSI.SetColor ANSI.Foreground ANSI.Vivid color]
   ,string
   ,ANSI.setSGRCode [ANSI.Reset]
   ]   

withRed, withBlue, withYellow, withGreen, withCyan :: String -> String
withRed    = withColor ANSI.Red
withBlue   = withColor ANSI.Blue
withCyan   = withColor ANSI.Cyan
withYellow = withColor ANSI.Yellow
withGreen  = withColor ANSI.Green