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 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