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

more /management

Browse source
This commit is contained in:
swrup 2025-10-18 18:19:09 +02:00
parent 85ddb8194f
commit a5f726ce9d
6 changed files with 68 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/devices.ml
View file

@ -1,11 +1,15 @@
(* TODO
better types to not mixup keys maybe
.. *)
let signkey = Secmod_keys.make ~name:"signkey"
let exchange_key = Secmod_keys.make ~name:"exchange_key"
let online_key = Secmod_keys.make ~name:"online_key"
let denom_key = Secmod_keys.make ~name:"denom_key"
let denominations =
let finally _key = () in
Vif.Device.v ~name:"denom" ~finally [] @@ fun () ->
Vif.Device.v ~name:"denominations" ~finally [] @@ fun () ->
let rsa_l = List.map Denom.make Config.coins in
rsa_l
let v = Vif.Devices.[ signkey; exchange_key; denom_key; denominations ]
let l = Vif.Devices.[ signkey; online_key; denom_key; denominations ]