X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fpretty.mli;h=36fd43039a5442937b8989d167fc58a1f6345b83;hp=ee828d5d1484d2bd7aef13247765dacf78b10756;hb=35abea737ead2d4fd121d0cb8bdbda38cfcaa8d3;hpb=41dd1fed04cabad212f10fce3484545f6e9d9444

diff --git a/src/pretty.mli b/src/pretty.mli
index ee828d5..36fd430 100644
--- a/src/pretty.mli
+++ b/src/pretty.mli
@@ -22,6 +22,7 @@ val up_arrow : string
 val right_arrow : string
 val left_arrow : string
 val epsilon : string
+val bullet : string
 val big_sigma : string
 val cap : string
 val cup : string
@@ -46,8 +47,12 @@ 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
+  ?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
+  ?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