Caqti_blocking.PoolA pool implementation for the current concurrency library.
val create :
?max_size:int ->
?max_idle_size:int ->
?max_use_count:int option ->
?check:('a -> (bool -> unit) -> unit) ->
?validate:('a -> bool future) ->
?log_src:Logs.Src.t ->
(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 intended for implementing the connect_pool functions.