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

Browse source
This commit is contained in:
swrup 2025-12-15 16:09:11 +01:00
parent bb8a454688
commit 6cb207c72c
4 changed files with 42 additions and 60 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/devices.ml
View file

@ -18,13 +18,7 @@ let db_connection : (env, Caqti_miou.connection) Vif.Device.device =
Logs.info (fun m -> m "database connection initialized");
conn)
let secmod_signkey =
let secmod =
let finally _key = () in
Vif.Device.v ~name:"secmod_signkey" ~finally
[ Vif.Device.value db_connection ]
@@ fun conn (_env : env) -> Secmod.init conn
let secmod_denom =
let finally _key = () in
Vif.Device.v ~name:"secmod_denom" ~finally [ Vif.Device.value db_connection ]
Vif.Device.v ~name:"secmod" ~finally [ Vif.Device.value db_connection ]
@@ fun conn (_env : env) -> Secmod.init conn