type style =
[ `Bg of
[ `Black
| `Blue
| `Cyan
| `Green
| `Hi of
[ `Black
| `Blue
| `Cyan
| `Green
| `Magenta
| `Red
| `White
| `Yellow ]
| `Magenta
| `Red
| `White
| `Yellow ]
| `Black
| `Blue
| `Bold
| `Cyan
| `Faint
| `Fg of
[ `Black
| `Blue
| `Cyan
| `Green
| `Hi of
[ `Black | `Blue | `Cyan | `Green | `Magenta | `Red | `White | `Yellow ]
| `Magenta
| `Red
| `White
| `Yellow ]
| `Green
| `Italic
| `Magenta
| `None
| `Red
| `Reverse
| `Underline
| `White
| `Yellow ]
listtype t = {header_bug : style;header_error : style;header_warning : style;header_note : style;header_help : style;header_message : style;primary_label_bug : style;primary_label_error : style;primary_label_warning : style;primary_label_note : style;primary_label_help : style;secondary_label : style;line_number : style;source_border : style;note_bullet : style;}val default : tval header : t -> Grace.Diagnostic.Severity.t -> styleval label :
t ->
Grace.Diagnostic.Priority.t ->
Grace.Diagnostic.Severity.t ->
style