Rename print_loc to pp in Stable_printer

Signed-off-by: Nathan Rebours <[email protected]>

Author: NathanReb

bin/test/main.ml

@@ -52,8 +52,8 @@ let report_error_in_block block msg =
     | Cram _ -> "cram "
     | Toplevel _ -> "toplevel "
   in
-  Fmt.epr "%a: Error in the %scode block@]\n%s\n"
-    Stable_printer.Location.print_loc block.loc kind msg
+  Fmt.epr "%a: Error in the %scode block@]\n%s\n" Stable_printer.Location.pp
+    block.loc kind msg
 
 let run setup non_deterministic silent_eval record_backtrace syntax silent
     verbose_findlib prelude prelude_str file section root force_output output :

lib/block.ml

@@ -20,11 +20,10 @@ let loc_error ~loc fmt =
   Format.kasprintf
     (fun s -> Error (`Msg s))
     ("%a: invalid code block: " ^^ fmt)
-    Stable_printer.Location.print_loc loc
+    Stable_printer.Location.pp loc
 
 let locate_error_msg ~loc s =
-  Format.asprintf "%a: invalid code block: %s" Stable_printer.Location.print_loc
-    loc s
+  Format.asprintf "%a: invalid code block: %s" Stable_printer.Location.pp loc s
 
 let locate_errors ~loc r =
   Result.map_error
@@ -139,7 +138,7 @@ let dump ppf ({ loc; section; labels; contents; value; _ } as b) =
   Fmt.pf ppf
     "{@[loc: %a;@ section: %a;@ labels: %a;@ header: %a;@ contents: %a;@ \
      value: %a@]}"
-    Stable_printer.Location.print_loc loc
+    Stable_printer.Location.pp loc
     Fmt.(Dump.option dump_section)
     section
     Fmt.Dump.(list Label.pp)

lib/lexer_mdx.mll

@@ -116,7 +116,8 @@ and cram_block = parse
     | exn ->
       let loc = Location.curr lexbuf in
       let msg =
-        Format.asprintf "%a: %s" Stable_printer.Location.print_loc loc (Printexc.to_string exn)
+        Format.asprintf "%a: %s" Stable_printer.Location.pp loc
+          (Printexc.to_string exn)
       in
       Util.Result.errorf "%s" msg
 
@@ -127,7 +128,8 @@ let cram_token lexbuf =
     | exn ->
       let loc = Location.curr lexbuf in
       let msg =
-        Format.asprintf "%a: %s" Stable_printer.Location.print_loc loc (Printexc.to_string exn)
+        Format.asprintf "%a: %s" Stable_printer.Location.pp loc
+          (Printexc.to_string exn)
       in
       Util.Result.errorf "%s" msg
 }

lib/stable_printer.ml

@@ -1,7 +1,7 @@
 module Location = struct
   open Location
 
-  let print_loc ppf loc =
+  let pp ppf loc =
     (*setup_colors ();*)
     let file_valid = function
       | "_none_" ->

lib/stable_printer.mli

@@ -3,6 +3,6 @@ Use this for user facing part of the code so that mdx's output does not
 depend on the ocaml version it was built with. *)
 
 module Location : sig
-  val print_loc : Format.formatter -> Location.t -> unit
+  val pp : Format.formatter -> Location.t -> unit
   (** Prints location for error reporting as ["File <file>, lines <line-range>"] *)
 end