diff options
| author | Emilio Jesus Gallego Arias | 2016-09-29 16:06:43 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2017-03-21 15:47:13 +0100 |
| commit | 8f8af9e4ebf1ea1ed15f765196ef5af8a77d3c27 (patch) | |
| tree | 0ed33666fbd900f5b0aeff5bfd3096a837ee26e1 /lib/feedback.ml | |
| parent | 2617a83e572531e26734cff8b9eb8aa09d49b850 (diff) | |
[pp] Prepare for serialization, remove opaque glue.
We also remove flushing operations `msg_with`, now the flushing
responsibility belong to the owner of the formatter.
Diffstat (limited to 'lib/feedback.ml')
| -rw-r--r-- | lib/feedback.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/feedback.ml b/lib/feedback.ml index e723bf4bae..971a51e354 100644 --- a/lib/feedback.ml +++ b/lib/feedback.ml @@ -51,7 +51,9 @@ open Pp_control type logger = ?loc:Loc.t -> level -> std_ppcmds -> unit -let msgnl_with ?pp_tag fmt strm = msg_with ?pp_tag fmt (strm ++ fnl ()) +let msgnl_with ?pp_tag fmt strm = + pp_with ?pp_tag fmt (strm ++ fnl ()); + Format.pp_print_flush fmt () (* XXX: This is really painful! *) module Emacs = struct |