From 76a7ce0f45a34bc91ecf4cfd7490d5f4c0c8b5c9 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Mon, 24 Jun 2024 12:11:01 -0400 Subject: [PATCH] lil update to Tracing_ --- src/private/tracing_.dummy.ml | 1 + src/private/tracing_.mli | 1 + src/private/tracing_.real.ml | 1 + 3 files changed, 3 insertions(+) diff --git a/src/private/tracing_.dummy.ml b/src/private/tracing_.dummy.ml index ba6d0aff..37f9d54a 100644 --- a/src/private/tracing_.dummy.ml +++ b/src/private/tracing_.dummy.ml @@ -1,5 +1,6 @@ let enabled () = false let dummy_span = 0L +let message = ignore let enter_span _name = dummy_span let exit_span = ignore let set_thread_name = ignore diff --git a/src/private/tracing_.mli b/src/private/tracing_.mli index d4634697..54de47c0 100644 --- a/src/private/tracing_.mli +++ b/src/private/tracing_.mli @@ -2,5 +2,6 @@ val dummy_span : int64 val enter_span : string -> int64 val exit_span : int64 -> unit val with_span : string -> (int64 -> 'a) -> 'a +val message : string -> unit val enabled : unit -> bool val set_thread_name : string -> unit diff --git a/src/private/tracing_.real.ml b/src/private/tracing_.real.ml index 4a928e27..e1aa32eb 100644 --- a/src/private/tracing_.real.ml +++ b/src/private/tracing_.real.ml @@ -4,6 +4,7 @@ let enabled = Trace.enabled let dummy_span = Int64.min_int let dummy_file_ = "" let set_thread_name = Trace.set_thread_name +let[@inline] message msg = Trace.message msg let[@inline] enter_span name : int64 = if name = "" then