12 lines
388 B
OCaml
12 lines
388 B
OCaml
|
let signkey = Secmod_keys.make ~name:"signkey"
|
||
|
|
let exchange_key = Secmod_keys.make ~name:"exchange_key"
|
||
|
|
let denom_key = Secmod_keys.make ~name:"denom_key"
|
||
|
|
|
||
|
|
let denominations =
|
||
|
|
let finally _key = () in
|
||
|
|
Vif.Device.v ~name:"denom" ~finally [] @@ fun () ->
|
||
|
|
let rsa_l = List.map Denom.make Config.coins in
|
||
|
|
rsa_l
|
||
|
|
|
||
|
|
let v = Vif.Devices.[ signkey; exchange_key; denom_key; denominations ]
|