4.02 compat

ocaml · Feb 13, 2018 · 77ef637 · 77ef637
1 parent a1f7020
commit 77ef637
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/log.ml b/src/log.ml
@@ -32,7 +32,7 @@ let info_internal { ppf; display; _ } str =
     Format.pp_print_flush ppf ()
   in
   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 =
   match t with