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

fix: same

Browse source
This commit is contained in:
Simon Cruanes 2022-04-12 13:53:24 -04:00
parent 2c1c67bfe8
commit 3448e33d29
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
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/client/opentelemetry_client_ocurl.ml
View file

@ -450,9 +450,10 @@ let mk_emitter ~(config:Config.t) () : (module EMITTER) =
while !continue do while !continue do
let@ () = guard in let@ () = guard in
let timeout = batch_timeout() in let timeout = batch_timeout() in
if emit_metrics ~force:timeout () then ()
else if emit_traces ~force:timeout () then () let do_metrics = emit_metrics ~force:timeout () in
else ( let do_traces = emit_traces ~force:timeout () in
if not do_metrics && not do_traces then (
(* wait *) (* wait *)
let@ () = with_mutex_ m in let@ () = with_mutex_ m in
Condition.wait cond m; Condition.wait cond m;