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

Update src/core/opentelemetry.ml

Browse source
This commit is contained in:
Simon Cruanes 2024-10-21 10:40:46 -04:00 • committed by GitHub
parent 53c1ddba8c
commit 865b446829
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 1 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/core/opentelemetry.ml
View file

@ -984,14 +984,7 @@ end = struct
let set_status (scope : t) (status : Span_status.t) : unit =
if Collector.has_backend () then (
let rec loop acc = function
| Nil -> acc
| Span_status (_, l) -> loop acc l
| Ev (ev, l) -> loop (Ev (ev, acc)) l
| Attr (attr, l) -> loop (Attr (attr, acc)) l
| Span_link (link, l) -> loop (Span_link (link, acc)) l
in
scope.items <- loop (Span_status (status, Nil)) scope.items
scope.items <- Span_status (status, scope.items)
)
let ambient_scope_key : t Ambient_context.key = Ambient_context.create_key ()