Tjr_log
type log_ops
=
{
log : string -> unit;
log_lazy : (unit -> string) -> unit;
log_now : string -> unit;
log_n : int Pervasives.ref;
jlog : Yojson.Safe.json -> unit;
print_last_n : unit -> unit;
}
val mk_log_ops : unit -> log_ops
val noop_log_ops : log_ops
The "do nothing" logger