package sihl
The modular functional web framework
Install
Dune Dependency
Authors
Maintainers
Sources
sihl-queue-0.1.5.tbz
sha256=bfa7bde9af02bb83d5ca39d54797b05b43317f033d93d24ca86ca42ff8ef83a1
sha512=6bb8727f65116e8042aa1fb77b3c14851ce5238f7b412adadf0f8e5b52d5310e8f06056c96bf76a82ffd7096753f49b2b0482f41e18ee1ca94310b874fe81bf9
doc/src/sihl.database/model.ml.html
Source file model.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18exception Exception of string type pool = (Caqti_lwt.connection, Caqti_error.t) Caqti_lwt.Pool.t type connection = (module Caqti_lwt.CONNECTION) let ctx_key_pool : pool Core.Ctx.key = Core.Ctx.create_key () let ctx_key_connection : connection Core.Ctx.key = Core.Ctx.create_key () let ctx_key_transaction : connection Core.Ctx.key = Core.Ctx.create_key () let find_pool ctx = Core.Ctx.find ctx_key_pool ctx let add_pool pool ctx = Core.Ctx.add ctx_key_pool pool ctx let remove_pool ctx = Core.Ctx.remove ctx_key_pool ctx let find_connection ctx = Core.Ctx.find ctx_key_connection ctx let add_connection connection ctx = Core.Ctx.add ctx_key_connection connection ctx let remove_connection ctx = Core.Ctx.remove ctx_key_connection ctx let find_transaction ctx = Core.Ctx.find ctx_key_transaction ctx let add_transaction connection ctx = Core.Ctx.add ctx_key_transaction connection ctx let remove_transaction ctx = Core.Ctx.remove ctx_key_transaction ctx let pool_ref : pool option ref = ref None