simon/ocaml-trace
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-trace.git synced 2026-03-07 18:37:56 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

use current_span when entering spans or sending messages

Browse source 
use the current span if no parent/context span is specified.
This commit is contained in:
Simon Cruanes 2026-02-25 14:16:47 -05:00
parent 4e6c69de8c
commit aaba8d4db3
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/core/trace_core.ml
View file

@ -21,6 +21,11 @@ let ambient_span_provider : Ambient_span_provider.t A.t =
(* ## implementation ## *)
let[@inline] option_or_ a f =
match a with
| Some _ -> a
| None -> f ()
let data_empty_build_ () = []
let[@inline] enabled () = Collector.is_some (A.get collector)
let[@inline] get_default_level () = A.get default_level_
@ -42,7 +47,10 @@ let[@inline] with_current_span_set_to sp f =
| ASP_some (st, cbs) -> cbs.with_current_span_set_to st sp f
let parent_of_span_opt_opt = function
| None ->
(match current_span () with
| None -> P_unknown
| Some p -> P_some p)
| Some None -> P_none
| Some (Some p) -> P_some p
@ -110,6 +118,7 @@ let[@inline] add_data_to_span sp data : unit =
let message_collector_ st (cbs : _ Collector.Callbacks.t) ~level ?span
?(params = []) ?(data = data_empty_build_) msg : unit =
let data = data () in
let span = option_or_ span current_span in
cbs.message st ~level ~span ~params ~data msg
let[@inline] message ?(level = A.get default_level_) ?span ?params ?data msg :