fix warnings

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

View file

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

View file

@ -43,11 +43,6 @@ end = struct
UM.protect self.mutex @@ fun () ->
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 =
UM.protect self.mutex @@ fun () ->
if self.closed then raise Closed;

View file

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

View file

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