Backward compatibility: Out_channel.output_string --> `Stdlib.outpu…

…t_string`
lukstafi · Dec 21, 2023 · 7bfd94d · 7bfd94d
1 parent c980309
commit 7bfd94d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/minidebug_runtime.ml b/minidebug_runtime.ml
@@ -231,10 +231,10 @@ module PrintBox (Log_to : Debug_ch) = struct
       | [ (true, b) ] ->
           let box = stack_to_tree b in
           if !to_html then
-            Out_channel.output_string debug_ch
+            output_string debug_ch
             @@ PrintBox_html.(to_string ~config:Config.(tree_summary true default) box)
           else PrintBox_text.output debug_ch box;
-          Out_channel.output_string debug_ch "\n";
+          output_string debug_ch "\n";
           []
           (* CFormat.fprintf ppf "@\n%!"; [] *)
       | _ -> failwith "ppx_minidebug: close_log must follow an earlier open_log_preamble"