Module Octavius__Errors
type position
=
{
line : int;
column : int;
}
type location
=
{
start : position;
finish : position;
}
type parser_error
=
|
Unclosed of
{
opening_loc : location;
opening : string;
items : string;
closing : string;
}
|
Expecting of string
type lexer_error
=
type error
=
|
Lexer of lexer_error
|
Parser of parser_error
type t
=
{
error : error;
location : location;
}
val message : error -> string