tools/offline_signature.ml

@@ -1,4 +1,4 @@
-let _denom_signature master_priv master_pub
+let _denom_signature ~key ~key_pub
     Api.FutureDenom.
       {
         section_name= _;
@@ -28,9 +28,8 @@ let _denom_signature master_priv master_pub
   let master_sig =
     let open Bin_type in
     let open Bin_signature.DenominationKeyValidityPS in
-    let denom_key_validity =
     {
-        master= master_pub;
+      master= key_pub;
       start= stamp_start;
       expire_withdraw= stamp_expire_withdraw;
       expire_spend= stamp_expire_deposit;
@@ -41,9 +40,8 @@ let _denom_signature master_priv master_pub
       fee_refresh;
       denom_hash= DenominationHash.hash pub_octets;
     }
-    in
-    let data = Bin.to_string bin denom_key_validity in
-    Crypto.EddsaSignature.sign ~key:master_priv data
+    |> Bin.to_string bin
+    |> Crypto.EddsaSignature.sign ~key
   in
   Api.DenomSignature.{ h_denom_pub; master_sig }