X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Fpretty.mli;h=36fd43039a5442937b8989d167fc58a1f6345b83;hb=4c6227b270c2efe640654ce2a2151c1cc43ec1a1;hp=96fb7733786d5a8d3d3ece03f953b01afee0e04a;hpb=9a127b83fbb1171ebd36e6f42780093412a5e91a;p=tatoo.git 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