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

fix: do not emit empty batches

Browse source
This commit is contained in:
Simon Cruanes 2022-07-06 19:55:06 -04:00
parent 16667a3fcf
commit 41e9962c08
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/client/opentelemetry_client_ocurl.ml
View file

@ -240,13 +240,12 @@ end = struct
let pop_if_ready ?(force = false) ~now (self : _ t) : _ list option = let pop_if_ready ?(force = false) ~now (self : _ t) : _ list option =
let@ () = with_mutex_ self.lock in let@ () = with_mutex_ self.lock in
if if self.size > 0 && (force || is_full_ self || timeout_expired_ ~now self)
(force && not (is_empty_ self))
|| is_full_ self || timeout_expired_ ~now self
then ( then (
let l = self.q in let l = self.q in
self.q <- []; self.q <- [];
self.size <- 0; self.size <- 0;
assert (l <> []);
Some l Some l
) else ) else
None None