Source file debug.ml

let debug fmt =
  let pf = match Sys.getenv "CODEPT_DEBUG" with
    | "1" | "true" -> Format.fprintf
    | _ -> Format.ifprintf
    | exception Not_found -> Format.ifprintf in
  pf Pp.err ("Debug:" ^^ fmt ^^"@.")

let debug_callstack () =
  match Sys.getenv "CODEPT_DEBUG" with
  | "1" | "true" ->
    Printexc.print_raw_backtrace stderr (Printexc.get_callstack 10_000_000)
  | _ -> ()