src/denomination.ml

@@ -18,7 +18,25 @@ type t = {
   master_sig: Api_sig.DenominationKeyValidityPS.t option;
 }
 
-let make
+module Unsigned = struct
+  type t = {
+    pub: RsaPublicKey.t;
+    priv: RsaPrivateKey.t;
+    section_name: string;
+    value: Amount.t;
+    stamp_start: Timestamp.t;
+    stamp_expire_withdraw: Timestamp.t;
+    stamp_expire_deposit: Timestamp.t;
+    stamp_expire_legal: Timestamp.t;
+    fee_withdraw: Amount.t;
+    fee_deposit: Amount.t;
+    fee_refresh: Amount.t;
+    fee_refund: Amount.t;
+    age_mask: int;
+    h_pub: Bin_type.DenominationHash.t;
+  }
+
+  let make
       ({
          section_name;
          value;
@@ -51,7 +69,6 @@ let make
     let priv = generate ~bits:rsa_keysize () in
     let pub = pub_of_priv priv in
     let h_pub = Bin_type.DenominationHash.hash (RsaPublicKey.to_octets pub) in
-  let master_sig = None in
     {
       pub;
       priv;
@@ -67,5 +84,5 @@ let make
       fee_refund;
       age_mask= 0;
       h_pub;
-    master_sig;
     }
+end

src/secmod_denom.ml

@@ -71,7 +71,7 @@ let load conn =
 let make_new () =
   let lock = Miou.Mutex.create () in
   let sm_key = Signkey.make () in
-  let denoms = List.map Denomination.make Config.Coin.all_coins in
+  let denoms = List.map Denomination.Unsigned.make Config.Coin.all_coins in
   let denom_ht =
     denoms
     |> List.map (fun v -> (v.Denomination.h_pub, v))