diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2016-06-04 11:47:37 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2016-06-04 11:47:37 +0200 |
| commit | ba34fd27bd469ffde9977211bbd9d5b5fa9656b6 (patch) | |
| tree | 1d8a3b772ee0c07282c40eca7e5b6f23a5189583 /lib | |
| parent | 89a1ea67a72500eeae1d003dd346f01ded514f7b (diff) | |
| parent | 1018be0472d41e9e12b181d1e11b04fa413754f2 (diff) | |
Merge remote-tracking branch 'github/pr/184' into trunk
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/pp.mli | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/pp.mli b/lib/pp.mli index ced4b6603..a18744c37 100644 --- a/lib/pp.mli +++ b/lib/pp.mli @@ -170,5 +170,9 @@ val pr_vertical_list : ('b -> std_ppcmds) -> 'b list -> 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 fmt pp] Print [pp] to [fmt] and don't flush [fmt] *) val pp_with : ?pp_tag:tag_handler -> Format.formatter -> std_ppcmds -> unit |