module Limit: sig .. end
sig
end
type t
val create : int -> t
int -> t
val acquire : t -> (unit -> 'a Lwt.t) -> 'a Lwt.t
t -> (unit -> 'a Lwt.t) -> 'a Lwt.t
val j : unit -> t
unit -> t
val set_j : int -> unit
int -> unit
j
Failure