Source file debug_node_output.ml

1
2
3
4
5
open! Core

let output_ref : (string -> unit) ref = ref (Core.Debug.eprintf "%s")
let output s = !output_ref s
let set_output f = output_ref := f