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

fix: Repair ambient scope

Browse source
This commit is contained in:
Elliott Cable 2023-09-19 23:57:53 +00:00
parent 2be60c7ba6
commit caade960b6
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/opentelemetry.ml
View file

@ -810,8 +810,6 @@ module Trace = struct
let start_time = Timestamp_ns.now_unix_ns () in
let span_id = Span_id.create () in
let scope = { trace_id; span_id; events = []; attrs } in
(* set global scope in this thread *)
Scope.with_ambient_scope scope @@ fun () ->
(* called once we're done, to emit a span *)
let finally res =
let status =
@ -830,7 +828,10 @@ module Trace = struct
in
emit ?service_name [ span ]
in
let thunk () = cb scope in
let thunk () =
(* set global scope in this thread *)
Scope.with_ambient_scope scope @@ fun () -> cb scope
in
thunk, finally
(** Sync span guard.