mirror of
https://github.com/c-cube/moonpool.git
synced 2026-01-27 03:34:50 -05:00
14 lines
380 B
OCaml
14 lines
380 B
OCaml
module Trace = Trace_core
|
|
|
|
let enabled = Trace.enabled
|
|
let dummy_span = Int64.min_int
|
|
let dummy_file_ = "<unknown file>"
|
|
let set_thread_name = Trace.set_thread_name
|
|
|
|
let[@inline] enter_span name : int64 =
|
|
if name = "" then
|
|
dummy_span
|
|
else
|
|
Trace.enter_span ~__FILE__:dummy_file_ ~__LINE__:0 name
|
|
|
|
let[@inline] exit_span sp = if sp <> dummy_span then Trace.exit_span sp
|