Module System.Pool

type ('a, 'e) t = ('a, 'e) Caqti_platform__Pool.Make(System_core)(Alarm).t
val size : ('a, 'e) t -> int
val use : ?priority:float -> ('a -> ('b, 'e) result System_core.Fiber.t) -> ('a, 'e) t -> ('b, 'e) result System_core.Fiber.t
val drain : ('a, 'e) t -> unit System_core.Fiber.t
val create : ?config:Caqti_pool_config.t -> ?check:('a -> (bool -> unit) -> unit) -> ?validate:('a -> bool System_core.Fiber.t) -> ?log_src:Logs.Src.t -> sw:System_core.Switch.t -> stdenv:System_core.stdenv -> (unit -> ('a, 'e) result System_core.Fiber.t) -> ('a -> unit System_core.Fiber.t) -> ('a, 'e) t