print.ml

type 'a printer = Format.formatter -> 'a -> unit

let inspect (pp : 'a printer) =
  Format.(kfprintf (fun f -> pp_print_newline f ()) std_formatter "%a" pp)

let print ?(channel=stdout) fmt =
  let f = Format.formatter_of_out_channel channel in
  Format.(kfprintf (fun f -> pp_print_newline f ()) f fmt)


let debug   fmt = print ~channel:stderr ("[DEBUG] " ^^ fmt)
let error   fmt = print ~channel:stderr ("[ERROR] " ^^ fmt)
let info    fmt = print ~channel:stderr ("[INFO] " ^^ fmt)
let warning fmt = print ~channel:stderr ("[WARNING] " ^^ fmt)