type old_location_error = Location.error = {loc : Location.t;msg : string;sub : old_location_error list;if_highlight : string;}type location_msg = (Format.formatter -> unit) Location.loctype location_error = old_location_errorval error_type_of_location_error : location_error -> error_typeval location_error_of_exn : exn -> location_errorval extension_of_error :
mk_pstr:('a list -> 'b) ->
mk_extension:((string Location.loc * 'b) -> 'a) ->
mk_string_constant:(string -> 'a) ->
location_error ->
string Location.loc * 'bval error_of_exn : exn -> location_error optionval register_error_of_exn : (exn -> Location.error option) -> unitval report_exception : Format.formatter -> exn -> unitval errorf :
loc:Location.t ->
('a, Format.formatter, unit, Location.error) Pervasives.format4 ->
'aval raise_errorf :
?loc:Location.t ->
('a, Format.formatter, unit, 'b) Pervasives.format4 ->
'aval _get_error_message_old : old_location_error -> stringval _get_error_message_new : location_report -> stringval get_error_message : old_location_error -> stringval _set_error_message_old : old_location_error -> string -> old_location_errorval _set_error_message_new : location_report -> string -> location_reportval set_error_message : old_location_error -> string -> old_location_errorval make_error_of_message_old :
loc:Location.t ->
string ->
sub:(Location.t * string) list ->
old_location_errorval make_error_of_message_new :
loc:Location.t ->
string ->
sub:(Location.t * string) list ->
location_reportval make_error_of_message :
loc:Location.t ->
string ->
sub:(Location.t * string) list ->
old_location_errorval print_error : Format.formatter -> Location.error -> unitmodule type Helpers_intf = sig ... endmodule Helpers_impl : sig ... end