type style =
[ `None
| `Bold
| `Faint
| `Italic
| `Underline
| `Reverse
| `Fg of
[ Grace_rendering__.Import.Fmt.color
| `Hi of
[ `Black | `Blue | `Cyan | `Green | `Magenta | `Red | `White | `Yellow ] ]
| `Bg of
[ Grace_rendering__.Import.Fmt.color
| `Hi of
[ `Black | `Blue | `Cyan | `Green | `Magenta | `Red | `White | `Yellow ] ]
| Grace_rendering__.Import.Fmt.color ]
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