to_formatter -> pp

But leave to_formatter as an alias

Author: rgrinberg

lib/mustache.ml

@@ -60,7 +60,7 @@ let escape_html s =
   ) s ;
   Buffer.contents b
 
-let rec to_formatter fmt = function
+let rec pp fmt = function
 
   | String s ->
     Format.pp_print_string fmt s
@@ -73,11 +73,11 @@ let rec to_formatter fmt = function
 
   | Inverted_section s ->
     Format.fprintf fmt "{{^%s}}%a{{/%s}}"
-      s.name to_formatter s.contents s.name
+      s.name pp s.contents s.name
 
   | Section s ->
     Format.fprintf fmt "{{#%s}}%a{{/%s}}"
-      s.name to_formatter s.contents s.name
+      s.name pp s.contents s.name
 
   | Partial s ->
     Format.fprintf fmt "{{> %s }}" s
@@ -86,12 +86,14 @@ let rec to_formatter fmt = function
     Format.fprintf fmt "{{! %s }}" s
 
   | Concat s ->
-    List.iter (to_formatter fmt) s
+    List.iter (pp fmt) s
+
+let to_formatter = pp
 
 let to_string x =
   let b = Buffer.create 0 in
   let fmt = Format.formatter_of_buffer b in
-  to_formatter fmt x ;
+  pp fmt x ;
   Format.pp_print_flush fmt () ;
   Buffer.contents b
 
@@ -200,7 +202,7 @@ let render_fmt ?(strict=true) (fmt : Format.formatter) (m : t) (js : Json.t) =
       end
 
     | Partial _ ->
-      to_formatter fmt m
+      pp fmt m
 
     | Comment c -> ()
 

lib/mustache.mli

@@ -25,9 +25,12 @@ type t
 val parse_lx : Lexing.lexbuf -> t
 val of_string : string -> t
 
-(** [to_formatter fmt template] print a template as raw mustache to
+(** [pp fmt template] print a template as raw mustache to
     the formatter [fmt].  *)
+val pp : Format.formatter -> t -> unit
+
 val to_formatter : Format.formatter -> t -> unit
+(** Alias for compatibility *)
 
 (** [to_string template] uses [to_formatter] in order to return
     a string representing the template as raw mustache.  *)