sig
type 'a t
val invariant : 'a Invariant_intf.inv -> 'a t Invariant_intf.inv
val create : unit -> 'a Thread_safe_queue.t
val length : 'a Thread_safe_queue.t -> int
val enqueue : 'a Thread_safe_queue.t -> 'a -> unit
val dequeue_exn : 'a Thread_safe_queue.t -> 'a
val clear_internal_pool : 'a Thread_safe_queue.t -> unit
val sexp_of_t :
('a -> Sexplib.Sexp.t) -> 'a Thread_safe_queue.t -> Sexplib.Sexp.t
end