+ secmod; + .master_sig

src/management.ml

@@ -3,6 +3,7 @@ open Api_types
 
 let mk_future_denom denom_key_signf
     ({
+       pub;
        section_name;
        value;
        stamp_start;
@@ -13,8 +14,9 @@ let mk_future_denom denom_key_signf
        fee_deposit;
        fee_refresh;
        fee_refund;
-       pub;
+       h_pub;
        sign= _;
+       master_sig= _;
      } :
       Denomination.t) =
   let denom_pub =
@@ -22,7 +24,7 @@ let mk_future_denom denom_key_signf
   in
   let denom_secmod_sig =
     let open Binary_formats in
-    let h_denom_pub = DenominationHash.hash pub in
+    let h_denom_pub = h_pub in
     let h_section_name = Cstring_hash_64.hash section_name in
     let anchor_time =
       TimeAbsoluteNBO.{ v= Util.ptime_to_int64_us stamp_start }
@@ -58,7 +60,8 @@ let mk_future_denom denom_key_signf
     }
 
 let mk_future_signkey signkey_signf
-    ({ pub; sign= _; stamp_start; stamp_expire; stamp_end } : Signkey.t) =
+    ({ pub; stamp_start; stamp_expire; stamp_end; sign= _; master_sig= _ } :
+      Signkey.t) =
   let signkey_secmod_sig =
     let open Binary_formats in
     let exchange_pub = pub in