swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

MNET: + .ocamlformat-ignore

Browse source
This commit is contained in:
swrup 2026-03-12 12:11:47 +01:00
parent 7ed875cd5e
commit 69755537f6
5 changed files with 35 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

46
src/devices.ml
View file

@ -1,26 +1,30 @@
let db_connection caqti_switch : (unit, Caqti_miou.connection) Vif.Device.device =
let f () =
let db_uri= Config.Exchangedb_postgres.config in
match Caqti_miou_unix.connect ~sw:caqti_switch db_uri with
| Error err ->
Fmt.failwith "Database connection failure: %a." Caqti_error.pp err
| Ok conn -> (
match Pg.preflight conn with
| Error err ->
Fmt.failwith "Database preflight failure: %a." Caqti_error.pp err
| Ok () ->
Logs.info (fun m -> m "database connection initialized");
conn)
in
let db_connection caqti_switch : (unit, Caqti_miou.connection) Vif.Device.device
=
let f () =
let db_uri = Config.Exchangedb_postgres.config in
match Caqti_miou_unix.connect ~sw:caqti_switch db_uri with
| Error err ->
Fmt.failwith "Database connection failure: %a." Caqti_error.pp err
| Ok conn -> (
match Pg.preflight conn with
| Error err ->
Fmt.failwith "Database preflight failure: %a." Caqti_error.pp err
| Ok () ->
Logs.info (fun m -> m "database connection initialized");
conn)
in
let finally (module Conn : Caqti_miou.CONNECTION) = Conn.disconnect () in
Vif.Device.v ~name:"db_connection" ~finally [] f
let keys storage =
let f (module Conn : Pg.CONN) () =
let (module Fs) = (module (struct let t = storage end)) in
let keys : (module Keys.S) = (module Keys.Make (Conn) (Fs) ) in
keys
in
let f (module Conn : Pg.CONN) () =
let (module Fs) =
(module struct
let t = storage
end)
in
let keys : (module Keys.S) = (module Keys.Make (Conn) (Fs)) in
keys
in
let finally _key = () in
Vif.Device.v ~name:"keys" ~finally [ Vif.Device.value db_connection ]
f
Vif.Device.v ~name:"keys" ~finally [ Vif.Device.value db_connection ] f