simon/ocaml-opentelemetry
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-opentelemetry.git synced 2026-03-08 03:47:59 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

add Span.dummy

Browse source
This commit is contained in:
Simon Cruanes 2025-12-10 14:37:30 -05:00
parent 30baf3491c
commit 18226a63a4
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/core/span.ml
View file

@ -44,6 +44,12 @@ let make ?(kind = !default_kind) ?trace_state ?(attrs = []) ?(events = [])
in in
span span
let dummy : t =
Proto.Trace.make_span
~trace_id:Trace_id.(dummy |> to_bytes)
~span_id:Span_id.(dummy |> to_bytes)
()
let create_new ?kind ?(id = Span_id.create ()) ?trace_state ?attrs ?events let create_new ?kind ?(id = Span_id.create ()) ?trace_state ?attrs ?events
?status ~trace_id ?parent ?links ~start_time ~end_time name : t = ?status ~trace_id ?parent ?links ~start_time ~end_time name : t =
make ?kind ~id ~trace_id ?trace_state ?attrs ?events ?status ?parent ?links make ?kind ~id ~trace_id ?trace_state ?attrs ?events ?status ?parent ?links
@ -84,7 +90,8 @@ let[@inline] to_span_ctx (self : t) : Span_ctx.t =
let[@inline] add_event self ev : unit = let[@inline] add_event self ev : unit =
if is_not_dummy self then span_set_events self (ev :: self.events) if is_not_dummy self then span_set_events self (ev :: self.events)
let add_event' self ev : unit = if is_not_dummy self then add_event self (ev ()) let add_event' self ev : unit =
if is_not_dummy self then span_set_events self (ev () :: self.events)
let record_exception (self : t) (exn : exn) (bt : Printexc.raw_backtrace) : unit let record_exception (self : t) (exn : exn) (bt : Printexc.raw_backtrace) : unit
= =
@ -117,7 +124,7 @@ let add_attrs' (self : t) (attrs : unit -> Key_value.t list) : unit =
) )
let add_links (self : t) (links : Span_link.t list) : unit = let add_links (self : t) (links : Span_link.t list) : unit =
if links <> [] then ( if is_not_dummy self && links <> [] then (
let links = List.rev_append links self.links in let links = List.rev_append links self.links in
span_set_links self links span_set_links self links
) )

3
src/core/span.mli
View file

@ -51,6 +51,9 @@ val trace_id : t -> Trace_id.t
val is_not_dummy : t -> bool val is_not_dummy : t -> bool
val dummy : t
(** Dummy span, will not record anything *)
val create_new : val create_new :
?kind:kind -> ?kind:kind ->
?id:Span_id.t -> ?id:Span_id.t ->