From f34db6ec5a46d861bde5874ad4059017f96af7d0 Mon Sep 17 00:00:00 2001 From: Cheng Lou Date: Wed, 23 Aug 2017 17:17:56 -0700 Subject: [PATCH] [Super errors] Expose hook for error msgs formatting --- vendor/ocaml/parsing/location.mli | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/vendor/ocaml/parsing/location.mli b/vendor/ocaml/parsing/location.mli index 5d1fe9db94..790eaeef5a 100644 --- a/vendor/ocaml/parsing/location.mli +++ b/vendor/ocaml/parsing/location.mli @@ -105,6 +105,10 @@ val print_error_prefix: formatter -> unit -> unit val error: ?loc:t -> ?sub:error list -> ?if_highlight:string -> string -> error +#if undefined BS_NO_COMPILER_PATCH then +val pp_ksprintf : ?before:(formatter -> unit) -> (string -> 'a) -> ('b, formatter, unit, 'a) format4 -> 'b +#end + val errorf: ?loc:t -> ?sub:error list -> ?if_highlight:string -> ('a, Format.formatter, unit, error) format4 -> 'a