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

merge secmod

Browse source
This commit is contained in:
swrup 2025-12-15 15:01:40 +01:00
parent 50a6137967
commit 15c132829e
11 changed files with 348 additions and 404 deletions
Download patch file Download diff file Expand all files Collapse all files

12
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_signkey.init conn
let secmod_denom =
let finally _key = () in
Vif.Device.v ~name:"secmod_denom" ~finally [ Vif.Device.value db_connection ]
@@ fun conn (_env : env) -> Secmod_denom.init conn
Vif.Device.v ~name:"secmod" ~finally [ Vif.Device.value db_connection ]
@@ fun conn (_env : env) -> Secmod.init conn