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_error -> stringval set_error_message : location_error -> string -> location_errorval make_error_of_message : loc:Location.t -> string -> sub:(Location.t * string) list -> location_errorval print_error : Stdlib.Format.formatter -> location_error -> unitval raise_error : location_error -> 'a