type nonrec location_error = location_errorval error_of_exn : exn -> location_error optionval register_error_of_exn : (exn -> Location.error option) -> unitval report_exception : Stdlib.Format.formatter -> exn -> unitval get_error_message : location_report -> stringval set_error_message : location_report -> string -> location_reportval make_error_of_message : loc:Location.t -> string -> sub:(Location.t * string) list -> location_reportval print_error : Stdlib.Format.formatter -> Location.report -> unitval raise_error : Location.error -> 'a