package sihl-persistence

  1. Overview
  2. Docs
module Core = Sihl_core
exception Exception of string
val log_src : Logs.src
module Logs : Logs.LOG
val pool_ref : Sihl_type.Database.pool option ref
type config = {
  1. url : string;
  2. pool_size : int option;
}
val config : string -> int option -> config
val schema : (string, string -> int option -> config, config) Conformist.t
val raise_error : ('a, [< Caqti_error.t ]) result -> 'a
val print_pool_usage : ('a, 'b) Caqti_lwt.Pool.t -> unit
val fetch_pool : unit -> Sihl_type.Database.pool
val transaction : (Caqti_lwt.connection -> 'a Lwt.t) -> 'a Lwt.t
val query : (Caqti_lwt.connection -> 'a Lwt.t) -> 'a Lwt.t
val start : unit -> unit Lwt.t
val stop : 'a -> unit Lwt.t
val register : unit -> Core.Container.Service.t
OCaml

Innovation. Community. Security.