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 option -> unit
  val set_color_tag_handling : Stdlib.Format.formatter -> unit
end