module System.Console.ANSI.Common where
data ANSIColor = Black
| Red
| Green
| Yellow
| Blue
| Magenta
| Cyan
| White
deriving (Bounded, Enum, Show)
data ANSISGR = Reset
| BoldIntensity
| FaintIntensity
| NormalIntensity
| Italic
| SingleUnderline
| DoubleUnderline
| NoUnderline
| SlowBlink
| RapidBlink
| NoBlink
| Conceal
| Reveal
| SwapForegroundBackground
| DontSwapForegroundBackground
| ForegroundNormalIntensity ANSIColor
| ForegroundHighIntensity ANSIColor
| BackgroundNormalIntensity ANSIColor
| BackgroundHighIntensity ANSIColor