X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fpretty.mli;fp=src%2Fpretty.mli;h=cbdf1962b1e6e0e3616ea78ed172f8eaa19d04d4;hp=36fd43039a5442937b8989d167fc58a1f6345b83;hb=a089738aa464521c0ae79944eb00fc147cc37ac9;hpb=22f564fb392fd71207e19cc862c0a18c34d1c2c0

diff --git a/src/pretty.mli b/src/pretty.mli
index 36fd430..cbdf196 100644
--- a/src/pretty.mli
+++ b/src/pretty.mli
@@ -49,10 +49,22 @@ 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 pp_print_range :
+  ?sep:(Format.formatter -> unit -> unit) -> (Format.formatter -> int -> unit)
+  -> Format.formatter -> (int * int) -> 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
+
+val print_range :
+  ?sep:string -> (Format.formatter -> int -> unit)
+  -> Format.formatter -> (int * int) -> unit