Make (p.guardian.0.0.5.doc.guardian.backend.Guardian

Parameters

module Config : ConfigSig

val main_pool_ref : 
  (Caqti_lwt.connection, Caqti_error.t) Caqti_lwt.Pool.t option ref

val pools : 
  (string, (Caqti_lwt.connection, Caqti_error.t) Caqti_lwt.Pool.t) Hashtbl.t

Sourceval print_pool_usage : ('a, 'b) Caqti_lwt.Pool.t -> unit

val connect_or_failwith : 
  ?pool_size:int ->
  ((Caqti_lwt.connection, [> Caqti_error.connect ]) Caqti_lwt.Pool.t -> 'a) ->
  string ->
  'a

Sourceval add_pool : ?pool_size:int -> string -> string -> unit

Sourceval initialize : unit -> unit

val fetch_pool : 
  ?ctx:(CCString.t * string) CCList.t ->
  unit ->
  (Caqti_lwt.connection, Caqti_error.t) Caqti_lwt.Pool.t

val transaction : 
  ?ctx:(CCString.t * string) CCList.t ->
  (Caqti_lwt.connection -> 'a) ->
  'a Lwt.t

val transaction' : 
  ?ctx:(CCString.t * string) CCList.t ->
  (Caqti_lwt.connection -> ('a, [< Caqti_error.t ]) result) ->
  'a Lwt.t

val query : 
  ?ctx:(CCString.t * string) CCList.t ->
  (Caqti_lwt.connection -> 'a Lwt.t) ->
  'a Lwt.t

val query' : 
  ?ctx:(CCString.t * string) CCList.t ->
  (Caqti_lwt.connection -> ('a, [< Caqti_error.t ]) result Lwt.t) ->
  'a Lwt.t

val find_opt : 
  ?ctx:(CCString.t * string) CCList.t ->
  ('a, 'b, [< `One | `Zero ]) Caqti_request.t ->
  'a ->
  'b option Lwt.t

val find : 
  ?ctx:(CCString.t * string) CCList.t ->
  ('a, 'b, [< `One ]) Caqti_request.t ->
  'a ->
  'b Lwt.t

val collect : 
  ?ctx:(CCString.t * string) CCList.t ->
  ('a, 'b, [< `Many | `One | `Zero ]) Caqti_request.t ->
  'a ->
  'b list Lwt.t

val exec : 
  ?ctx:(CCString.t * string) CCList.t ->
  ('a, unit, [< `Zero ]) Caqti_request.t ->
  'a ->
  unit Lwt.t