From 0400c597d0774ea7b65fe1d9f3ff0c0bd03618ef Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Mon, 8 Dec 2025 08:57:41 -0500 Subject: [PATCH] fix warnings --- src/client/bounded_queue.ml | 2 -- src/client/bounded_queue_sync.ml | 5 ----- src/client/export_error.ml | 2 -- src/client/notifier_sync.ml | 2 -- 4 files changed, 11 deletions(-) diff --git a/src/client/bounded_queue.ml b/src/client/bounded_queue.ml index 63d79802..b1cc1e81 100644 --- a/src/client/bounded_queue.ml +++ b/src/client/bounded_queue.ml @@ -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 *) diff --git a/src/client/bounded_queue_sync.ml b/src/client/bounded_queue_sync.ml index b4d80f7b..487ea4f2 100644 --- a/src/client/bounded_queue_sync.ml +++ b/src/client/bounded_queue_sync.ml @@ -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; diff --git a/src/client/export_error.ml b/src/client/export_error.ml index b78447cb..32f5e541 100644 --- a/src/client/export_error.ml +++ b/src/client/export_error.ml @@ -1,5 +1,3 @@ -open Common_ - type t = [ `Status of int * Opentelemetry.Proto.Status.status | `Failure of string diff --git a/src/client/notifier_sync.ml b/src/client/notifier_sync.ml index 0f7b6220..e1fd501d 100644 --- a/src/client/notifier_sync.ml +++ b/src/client/notifier_sync.ml @@ -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;