val initialize : unit -> unitval add_pool : ?pool_size:int -> string -> string -> unitval find_opt :
?ctx:(string * string) list ->
('a, 'b, [< `One | `Zero ]) Caqti_request.t ->
'a ->
'b option Lwt.tval collect :
?ctx:(string * string) list ->
('a, 'b, [< `Many | `One | `Zero ]) Caqti_request.t ->
'a ->
'b list Lwt.tval exec :
?ctx:(string * string) list ->
('a, unit, [< `Zero ]) Caqti_request.t ->
'a ->
unit Lwt.t