32 lines
754 B
OCaml
32 lines
754 B
OCaml
(* TODO KV store *)
|
|
|
|
module Secmod_signkey = struct
|
|
type t = {
|
|
secmod_key: Signkey.t;
|
|
keys: Signkey.t list;
|
|
}
|
|
|
|
let v =
|
|
let finally _key = () in
|
|
Vif.Device.v ~name:"secmod_signkey" ~finally [] @@ fun () ->
|
|
let secmod_key = Signkey.generate () in
|
|
let keys = [ Signkey.generate () ] in
|
|
{ secmod_key; keys }
|
|
end
|
|
|
|
module Secmod_denom = struct
|
|
type t = {
|
|
secmod_key: Signkey.t;
|
|
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 keys = List.map Denomination.make Config.coins in
|
|
{ secmod_key; keys }
|
|
end
|
|
|
|
let secmod_signkey = Secmod_signkey.v
|
|
let secmod_denom = Secmod_denom.v
|