Caqti_blocking.PoolA pool implementation for the current concurrency library.
val create :
?max_size:int ->
?check:('a -> (bool -> unit) -> unit) ->
?validate:('a -> bool future) ->
(unit -> ('a, 'e) result future) ->
('a -> unit future) ->
('a, 'e) tInternal: create alloc free is a pool of resources allocated by alloc and freed by free. This is primarily indented for implementing the connect_pool functions.
val size : ('a, 'e) t -> intsize pool is the current number of open resources in pool.
use f pool calls f on a resource drawn from pool, handing back the resource to the pool when f exits.