ifprintf !logger_output fmt
let print ppf fmt =
- pp_open_hovbox ppf 0;
kfprintf (fun _ ->
- pp_close_box ppf ();
fprintf ppf "@?")
ppf fmt
let set_verbose b = _verbose := b
let verbose ppf fmt =
if !_verbose then begin
- pp_open_hovbox ppf 0;
kfprintf (fun _ ->
- pp_close_box ppf ();
fprintf ppf "@?")
ppf fmt
end else
ikfprintf (fun _ ->
- pp_close_box ppf ();
fprintf ppf "@?")
ppf fmt