diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-10-12 21:54:05 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-10-12 21:54:05 +0200 |
commit | 376b54ff8753496a54fb120e35cd1b8babb44ac9 (patch) | |
tree | b55be0ecb60aae1a413fd7b275ccf8e32a76f1ca /lib/pp.mli | |
parent | d873f82c5024a496e8f1a14a9839e7f377d5f4bb (diff) | |
parent | e1f25889f88e078dac0f3b454eb16a470dd5f9ae (diff) |
Merge PR #224 into v8.6
Diffstat (limited to 'lib/pp.mli')
-rw-r--r-- | lib/pp.mli | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/pp.mli b/lib/pp.mli index f607e99db..8342a983d 100644 --- a/lib/pp.mli +++ b/lib/pp.mli @@ -172,8 +172,8 @@ val pr_loc : Loc.t -> std_ppcmds (** FIXME: These ignore the logging settings and call [Format] directly *) type tag_handler = Tag.t -> Format.tag -(** [msg_with fmt pp] Print [pp] to [fmt] and flush [fmt] *) -val msg_with : Format.formatter -> std_ppcmds -> unit +(** [msg_with ?pp_tag fmt pp] Print [pp] to [fmt] and flush [fmt] *) +val msg_with : ?pp_tag:tag_handler -> Format.formatter -> std_ppcmds -> unit -(** [msg_with fmt pp] Print [pp] to [fmt] and don't flush [fmt] *) +(** [msg_with ?pp_tag fmt pp] Print [pp] to [fmt] and don't flush [fmt] *) val pp_with : ?pp_tag:tag_handler -> Format.formatter -> std_ppcmds -> unit |