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

Browse source
This commit is contained in:
swrup 2026-03-12 12:23:57 +01:00
parent 69755537f6
commit 8df2b129e8
7 changed files with 57 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/devices.ml
View file

@ -1,4 +1,4 @@
let db_connection caqti_switch : (unit, Caqti_miou.connection) Vif.Device.device
let db_connection caqti_switch : (unit, Caqti_miou.connection) Vifu.Device.device
=
let f () =
let db_uri = Config.Exchangedb_postgres.config in
@ -14,7 +14,7 @@ let db_connection caqti_switch : (unit, Caqti_miou.connection) Vif.Device.device
conn)
in
let finally (module Conn : Caqti_miou.CONNECTION) = Conn.disconnect () in
Vif.Device.v ~name:"db_connection" ~finally [] f
Vifu.Device.v ~name:"db_connection" ~finally [] f
let keys storage =
let f (module Conn : Pg.CONN) () =
@ -27,4 +27,4 @@ let keys storage =
keys
in
let finally _key = () in
Vif.Device.v ~name:"keys" ~finally [ Vif.Device.value db_connection ] f
Vifu.Device.v ~name:"keys" ~finally [ Vifu.Device.value db_connection ] f