`sig
type color = Black | Red | Green | Yellow | Blue | Magenta | Cyan | White
type style = FG of Misc.Color.color | BG of Misc.Color.color | Bold | Reset
type Stdlib.Format.stag += Style of Misc.Color.style list
val ansi_of_style_l : Misc.Color.style list -> string
type styles = {
error : Misc.Color.style list;
warning : Misc.Color.style list;
loc : Misc.Color.style list;
}
val default_styles : Misc.Color.styles
val get_styles : unit -> Misc.Color.styles
val set_styles : Misc.Color.styles -> unit
type setting = Auto | Always | Never
val default_setting : Misc.Color.setting
val setup : Misc.Color.setting option -> unit
val set_color_tag_handling : Stdlib.Format.formatter -> unit
end`