X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fpretty.mli;h=36fd43039a5442937b8989d167fc58a1f6345b83;hp=96fb7733786d5a8d3d3ece03f953b01afee0e04a;hb=35abea737ead2d4fd121d0cb8bdbda38cfcaa8d3;hpb=78d247dc5e6d5e64a4ab848702c23ce81b6fc615 diff --git a/src/pretty.mli b/src/pretty.mli index 96fb773..36fd430 100644 --- a/src/pretty.mli +++ b/src/pretty.mli @@ -47,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