src/devices.ml

@@ -9,7 +9,7 @@ let denom_key = Secmod_keys.make ~name:"denom_key"
 let denominations =
   let finally _key = () in
   Vif.Device.v ~name:"denominations" ~finally [] @@ fun () ->
-  let rsa_l = List.map Denom.make Config.coins in
+  let rsa_l = List.map Denomination.make Config.coins in
   rsa_l
 
 let l = Vif.Devices.[ signkey; online_key; denom_key; denominations ]

src/management.ml

@@ -16,7 +16,7 @@ let mk_future_denom denom_key_signf
        pub;
        sign= _;
      } :
-      Denom.t) =
+      Denomination.t) =
   let denom_pub =
     DenominationKey.Rsa RsaDenominationKey.{ age_mask= 0; rsa_pub= pub }
   in