Pp.render -> Pp.to_fmt

Signed-off-by: Jeremie Dimino <[email protected]>

src/pp.ml

@@ -91,10 +91,10 @@ module Render = struct
     | Tag (tag, t) -> tag_handler ppf tag t
 end
 
-let render = Render.render
+let to_fmt_with_tags = Render.render
 
-let rec render_ignore_tags ppf t =
-  render ppf t ~tag_handler:(fun ppf _tag t -> render_ignore_tags ppf t)
+let rec to_fmt ppf t =
+  Render.render ppf t ~tag_handler:(fun ppf _tag t -> to_fmt ppf t)
 
 let nop = Nop
 

src/pp.mli

@@ -105,10 +105,10 @@ end
 (** {1 Rendering} *)
 
 (** Render a document to a classic formatter *)
-val render :
+val to_fmt : Format.formatter -> _ t -> unit
+
+val to_fmt_with_tags :
      Format.formatter
   -> 'a t
   -> tag_handler:(Format.formatter -> 'a -> 'a t -> unit)
   -> unit
-
-val render_ignore_tags : Format.formatter -> 'a t -> unit

test/tests.ml

@@ -1,4 +1,4 @@
-let pp pp = Format.printf "%a@." Pp.render_ignore_tags pp
+let pp pp = Format.printf "%a@." Pp.to_fmt pp
 
 let enum_x_and_y =
   Pp.enumerate [ Array.make 50 "x"; Array.make 50 "y" ] ~f:(fun a ->