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

+ rename

Browse source
This commit is contained in:
swrup 2026-02-18 18:16:31 +01:00
parent 8caf83e90a
commit 3b24e17c60
4 changed files with 40 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/devices.ml
View file

@ -18,9 +18,9 @@ let db_connection : (env, Caqti_miou.connection) Vif.Device.device =
Logs.info (fun m -> m "database connection initialized");
conn)
let secmod =
let keys =
let finally _key = () in
Vif.Device.v ~name:"secmod" ~finally [ Vif.Device.value db_connection ]
Vif.Device.v ~name:"keys" ~finally [ Vif.Device.value db_connection ]
@@ fun (module Conn : Pg.CONN) (_env : env) ->
let sm : (module Keys.S) = (module Keys.Make (Conn)) in
sm