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

debug in bounded queue sync

Browse source
This commit is contained in:
Simon Cruanes 2026-03-04 13:11:04 -05:00
parent f70e5ae4a2
commit 875101de9b
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/client/sync/bounded_queue_sync.ml
View file

@ -98,9 +98,12 @@ let push (self : _ state) x =
| Closed -> | Closed ->
ignore (Atomic.fetch_and_add self.n_discarded (List.length x) : int) ignore (Atomic.fetch_and_add self.n_discarded (List.length x) : int)
| Pushed { num_discarded } -> | Pushed { num_discarded } ->
if num_discarded > 0 then if num_discarded > 0 then (
ignore (Atomic.fetch_and_add self.n_discarded num_discarded : int); ignore (Atomic.fetch_and_add self.n_discarded num_discarded : int);
Opentelemetry.Self_debug.log Warning (fun () ->
Printf.sprintf "otel: dropped %d signals (exporter queue full)"
num_discarded)
);
(* wake up potentially asleep consumers *) (* wake up potentially asleep consumers *)
Cb_set.trigger self.on_non_empty Cb_set.trigger self.on_non_empty
) )