Module Misc.Color

module Color: sig .. end

---

type color = 

|	Black
|	Red
|	Green
|	Yellow
|	Blue
|	Magenta
|	Cyan
|	White

type style = 

|	FG of color
|	BG of color
|	Bold
|	Reset

let ansi_of_style_l: list(style) => string;

type styles = {

	error : style list;
	warning : style list;
	loc : style list;

}

let default_styles: styles;

let get_styles: unit => styles;

let set_styles: styles => unit;

type setting = 

|	Auto
|	Always
|	Never

let default_setting: setting;

let setup: option(setting) => unit;

let set_color_tag_handling: Format.formatter => unit;