mirror of
https://github.com/ocaml-tracing/ocaml-opentelemetry.git
synced 2026-03-07 18:37:56 -05:00
fix warnings
This commit is contained in:
parent
0a32049b4c
commit
0400c597d0
4 changed files with 0 additions and 11 deletions
|
|
@ -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 *)
|
||||
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -1,5 +1,3 @@
|
|||
open Common_
|
||||
|
||||
type t =
|
||||
[ `Status of int * Opentelemetry.Proto.Status.status
|
||||
| `Failure of string
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue