This is an instantiation of Caqti_pool for the chosen thread monad.
val create :
?max_size:int ->
?check:('a -> (bool -> unit) -> unit) ->
?validate:('a -> bool System.io) ->
(unit -> 'a System.io) ->
('a -> unit System.io) ->
'a t(internal) 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.
Maximum number of resources to allocate at any given time.
A function used to check a resource after use.
A function to check before use that a resource is still valid.
val size : 'a 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.
Requests for the resource are handled in decreasing order of priority. The default priority is 0.0.