package async_kernel

  1. Overview
  2. Docs

Source file debug.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
module Time_ns_in_this_directory = Time_ns
open Core
module Time_ns = Time_ns_in_this_directory
include Async_kernel_config.Print_debug_messages_for

let log message a sexp_of_a =
  eprintf
    "%s\n%!"
    (Sexp.to_string_hum
       ([%sexp_of: Sexp.t * Time_ns.t * string * a]
          (!Async_kernel_config.task_id (), Time_ns.now (), message, a)))
;;

let log_string message = log message () [%sexp_of: unit]