30 lines
763 B
OCaml
30 lines
763 B
OCaml
module Secmod_signkey = struct
|
|
type t = {
|
|
secmod_key: Signkey.t;
|
|
signkeys: Signkey.t list;
|
|
}
|
|
|
|
let v =
|
|
let finally _key = () in
|
|
Vif.Device.v ~name:"secmod_signkey" ~finally [] @@ fun () ->
|
|
let secmod_key = Signkey.generate () in
|
|
let signkeys = [ Signkey.generate () ] in
|
|
{ secmod_key; signkeys }
|
|
end
|
|
|
|
module Secmod_denom = struct
|
|
type t = {
|
|
secmod_key: Signkey.t;
|
|
denom_keys: Denomination.t list;
|
|
}
|
|
|
|
let v =
|
|
let finally _key = () in
|
|
Vif.Device.v ~name:"secmod_denom" ~finally [] @@ fun () ->
|
|
let secmod_key = Signkey.generate () in
|
|
let denom_keys = List.map Denomination.make Config.coins in
|
|
{ secmod_key; denom_keys }
|
|
end
|
|
|
|
let secmod_signkey = Secmod_signkey.v
|
|
let secmod_denom = Secmod_denom.v
|