25 lines
621 B
OCaml
25 lines
621 B
OCaml
module Secmod_signkey = struct
|
|
type t = {
|
|
secmod_public_key: Signkey.t;
|
|
signkeys: Signkey.t list;
|
|
}
|
|
end
|
|
|
|
module Secmod_denom = struct
|
|
type t = {
|
|
secmod_signkey: Signkey.t;
|
|
denom_keys: Denomination.t list;
|
|
}
|
|
end
|
|
|
|
let signkey = Signkey.make ~name:"signkey"
|
|
let online_key = Signkey.make ~name:"online_key"
|
|
let denom_key = Signkey.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 ]
|