type lexing_error = | Illegal_character of char| Illegal_escape of string| Unterminated_comment of Ppxlib.Location.t| Unterminated_string| Unterminated_string_in_comment of Ppxlib.Location.t * Ppxlib.Location.t| Keyword_as_label of string| Invalid_literal of stringtype ast_error = | Not_expecting of Ppxlib.Location.t * string| Other_syntax_error of string| Variable_in_scope of Ppxlib.Location.t * string| Applicative_path of Ppxlib.Location.ttype reason_error = | Lexing_error of lexing_error| Parsing_error of parsing_error| Ast_error of ast_errorexception Reason_error of reason_error * Ppxlib.Location.tval raise_error : reason_error -> Ppxlib.Location.t -> unitval raise_fatal_error : reason_error -> Ppxlib.Location.t -> 'aval recover_non_fatal_errors :
(unit -> 'a) ->
('a, exn) result * (reason_error * Ppxlib.Location.t) listval recover_parser_error :
(Ppxlib.Location.t -> string -> 'a) ->
Ppxlib.Location.t ->
string ->
'aval report_error :
Format.formatter ->
loc:Ppxlib.Location.t ->
reason_error ->
unitval error_extension_node_from_recovery :
Ppxlib.Location.t ->
string ->
string Ppxlib.Location.loc * Ppxlib.Parsetree.payloadval error_extension_node :
Ppxlib.Location.t ->
string ->
string Ppxlib.Location.loc * Ppxlib.Parsetree.payload