4.02 compat
This commit is contained in:
parent
a1f70209bf
commit
77ef63773f
|
@ -32,7 +32,7 @@ let info_internal { ppf; display; _ } str =
|
||||||
Format.pp_print_flush ppf ()
|
Format.pp_print_flush ppf ()
|
||||||
in
|
in
|
||||||
write ppf;
|
write ppf;
|
||||||
if display = Verbose then Format.kasprintf print_to_console "%t" write
|
if display = Verbose then print_to_console (Format.asprintf "%t" write)
|
||||||
|
|
||||||
let info t str =
|
let info t str =
|
||||||
match t with
|
match t with
|
||||||
|
|
Loading…
Reference in New Issue