module Language.Haskell.HsColour.ColourHighlight
  ( Colour(..)
  , Highlight(..)
  ) where

-- | Colours supported by ANSI codes.
data Colour = Black | Red | Green | Yellow | Blue | Magenta | Cyan | White
  deriving (Eq,Show,Read,Enum)

-- | Types of highlighting supported by ANSI codes (and some extra styles).
data Highlight =
    Normal
  | Bold
  | Dim
  | Underscore
  | Blink
  | ReverseVideo
  | Concealed
  | Foreground Colour
  | Background Colour
  -- Above are ANSI-only.  Below are extra styles.
  | Italic
  deriving (Eq,Show,Read)