package async_kernel

  1. Overview
  2. Docs
Monadic concurrency library

Install 

dune-project
 Dependency

github.com Readme Changelog MIT License Edit opam file Versions (6)

Authors

  1. J
    Jane Street Group, LLC

Maintainers

  1. J
    Jane Street developers

Sources

v0.17.0.tar.gz
sha256=01ced973dbc70535f692f38bed524ae82dba17e26e58791b2fbf0d647b160d2e

doc/src/async_kernel/debug.ml.html

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]