mte/src/devices.ml

(* TODO
   better types to not mixup keys maybe
   .. *)

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 ]