This commit is contained in:
parent
aa2ff7b2f0
commit
2f3113f55d
11742 changed files with 1223940 additions and 0 deletions
|
|
@ -0,0 +1,40 @@
|
|||
[@@@alert unstable "The API of this library is not stable and may change without notice."]
|
||||
|
||||
type code =
|
||||
{ code : int
|
||||
; name : string
|
||||
}
|
||||
|
||||
type source =
|
||||
| Code of code
|
||||
| Alert of string
|
||||
|
||||
type lines =
|
||||
| Single of int
|
||||
| Range of int * int
|
||||
|
||||
type loc =
|
||||
{ chars : (int * int) option
|
||||
; lines : lines
|
||||
; path : string
|
||||
}
|
||||
|
||||
type severity =
|
||||
| Error of source option
|
||||
| Warning of code
|
||||
| Alert of
|
||||
{ name : string
|
||||
; source : string
|
||||
}
|
||||
|
||||
type report =
|
||||
{ loc : loc
|
||||
; severity : severity
|
||||
; message : string
|
||||
; related : (loc * string) list
|
||||
}
|
||||
|
||||
val dyn_of_report : report -> Dyn.t
|
||||
val dyn_of_raw : [ `Loc of loc | `Message of string ] list -> Dyn.t
|
||||
val parse_raw : string -> [ `Loc of loc | `Message of string ] list
|
||||
val parse : string -> report list
|
||||
Loading…
Add table
Add a link
Reference in a new issue