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 warnings

Browse source
This commit is contained in:
Simon Cruanes 2025-12-08 08:57:41 -05:00
parent 0a32049b4c
commit 0400c597d0
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
4 changed files with 0 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/client/bounded_queue.ml
View file

@ -3,8 +3,6 @@
After the high watermark is reached, pushing items into the queue will After the high watermark is reached, pushing items into the queue will
instead discard them. *) instead discard them. *)
open Common_
exception Closed exception Closed
(** Raised when pushing into a closed queue *) (** Raised when pushing into a closed queue *)

5
src/client/bounded_queue_sync.ml
View file

@ -43,11 +43,6 @@ end = struct
UM.protect self.mutex @@ fun () -> UM.protect self.mutex @@ fun () ->
if not self.closed then self.closed <- true if not self.closed then self.closed <- true
let push (self : _ t) x : unit =
UM.protect self.mutex @@ fun () ->
if self.closed then raise Closed;
Queue.push x self.q
let try_pop (self : 'a t) : 'a option = let try_pop (self : 'a t) : 'a option =
UM.protect self.mutex @@ fun () -> UM.protect self.mutex @@ fun () ->
if self.closed then raise Closed; if self.closed then raise Closed;

2
src/client/export_error.ml
View file

@ -1,5 +1,3 @@
open Common_
type t = type t =
[ `Status of int * Opentelemetry.Proto.Status.status [ `Status of int * Opentelemetry.Proto.Status.status
| `Failure of string | `Failure of string

2
src/client/notifier_sync.ml
View file

@ -11,8 +11,6 @@ let trigger self = Condition.signal self.cond
let delete = ignore let delete = ignore
let[@inline] protect self f = Util_mutex.protect self.mutex f
let wait self = let wait self =
Mutex.lock self.mutex; Mutex.lock self.mutex;
Condition.wait self.cond self.mutex; Condition.wait self.cond self.mutex;