This commit is contained in:
swrup 2025-11-28 17:35:44 +01:00
parent a7c678fa3d
commit ad7cbbedd9

View file

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