X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Fpretty.mli;h=20be199c39e1ceaa07402c316c8b2405b5a9addf;hb=3791216bfb2b9d966718f83fd414e8bcd5f7a066;hp=87a255897264a6f746041b09bb50219cfec5f99f;hpb=468560acb04b8936936080e81152d926c251df30;p=SXSI%2Fxpathcomp.git

diff --git a/src/pretty.mli b/src/pretty.mli
index 87a2558..20be199 100644
--- a/src/pretty.mli
+++ b/src/pretty.mli
@@ -28,5 +28,9 @@ val pp_strike : Format.formatter -> string -> unit
 val pp_subscript : Format.formatter -> int -> unit
 val pp_superscript : Format.formatter -> int -> unit
 
+val pp_print_list :
+  ?sep:(Format.formatter -> unit -> unit) -> (Format.formatter -> 'a -> unit) -> Format.formatter -> 'a list -> unit
+val pp_print_array :
+  ?sep:(Format.formatter -> unit -> unit) -> (Format.formatter -> 'a -> unit) -> Format.formatter -> 'a array -> unit
 val print_list : ?sep:string -> (Format.formatter -> 'a -> unit) -> Format.formatter -> 'a list -> unit
 val print_array : ?sep:string -> (Format.formatter -> 'a -> unit) -> Format.formatter -> 'a array -> unit