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

secmod: use lock + ht + .mli

Browse source
This commit is contained in:
swrup 2025-12-06 23:25:29 +01:00
parent 846122b49c
commit 0d17d2a675
7 changed files with 141 additions and 71 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/devices.ml
View file

@ -22,29 +22,9 @@ let secmod_signkey =
let finally _key = () in
Vif.Device.v ~name:"secmod_signkey" ~finally
[ Vif.Device.value db_connection ]
@@ fun conn (_env : env) ->
match Secmod_signkey.load conn with
| Ok None ->
let t = Secmod_signkey.make_new () in
Logs.info (fun m -> m "secmod_signkey initialized with fresh keys");
t
| Ok (Some v) ->
Logs.info (fun m -> m "secmod_signkey initialized from storage");
v
| Error _ ->
(* TODO error: pretty print *)
Fmt.failwith "secmod_signkey init failure."
@@ 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) ->
match Secmod_denom.load conn with
| Ok None ->
let t = Secmod_denom.make_new () in
Logs.info (fun m -> m "secmod_denom initialized with fresh keys");
t
| Ok (Some v) ->
Logs.info (fun m -> m "secmod_denom initialized from storage");
v
| Error _ -> Fmt.failwith "secmod_denom init failure."
@@ fun conn (_env : env) -> Secmod_denom.init conn