`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 setup : Misc.Color.setting -> unit val set_color_tag_handling : Format.formatter -> unit end`