Color.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

module Color where

red :: String -> String
red s = "\x001b[31m" ++ s ++ "\x001b[0m"

green :: String -> String
green s = "\x001b[32m" ++ s ++ "\x001b[0m"

yellow :: String -> String
yellow s = "\x001b[33m" ++ s ++ "\x001b[0m"

blue :: String -> String
blue s = "\x001b[34m" ++ s ++ "\x001b[0m"