Sourcetype code = {code : int;name : string;
} Sourcetype source = | Code of code| Alert of string
Sourcetype lines = | Single of int| Range of int * int
Sourcetype loc = {chars : (int * int) option;lines : lines;path : string;
} Sourcetype severity = | Error of source option| Warning of code| Alert of {name : string;source : string;
}
Sourceval dyn_of_raw : [ `Loc of loc | `Message of string ] list -> Dyn.t Sourceval parse_raw : string -> [ `Loc of loc | `Message of string ] list