15 lines
455 B
OCaml
15 lines
455 B
OCaml
(* TODO
|
|
better types to not mixup keys maybe
|
|
.. *)
|
|
|
|
let signkey = Secmod_keys.make ~name:"signkey"
|
|
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:"denominations" ~finally [] @@ fun () ->
|
|
let rsa_l = List.map Denomination.make Config.coins in
|
|
rsa_l
|
|
|
|
let l = Vif.Devices.[ signkey; online_key; denom_key; denominations ]
|