--------------------------------------------------------------------------------
colorised :: Color -> Text -> IO ()
colorised col msg = do
  setSGR [SetColor Foreground Vivid col]
  putStrLn . unpack $ msg
  reset

--------------------------------------------------------------------------------
colorised :: Color -> Text -> IO ()
colorised col msg = do
  setSGR [SetColor Foreground Vivid col]
  putStrLn . unpack $ msg
  reset

--------------------------------------------------------------------------------
colorised col msg = do
  setSGR [SetColor Foreground Vivid col]
  putStrLn . unpack $ msg
  reset

--------------------------------------------------------------------------------