mte/src/devices.ml

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