+ wip add MK_master_sig

This commit is contained in:
swrup 2026-02-21 21:32:18 +01:00
parent 37ed47326a
commit 77d10ee93c
2 changed files with 25 additions and 28 deletions

View file

@ -36,9 +36,9 @@ module Keys_post = struct
let verify_dn (module Keys : Keys.S) fdn denom_hash master_sig =
let open FutureDenom in
let open Signatures.DenominationKeyValidity in
let r : r =
let r =
{
master= Config.master_public_key;
R.master= Config.master_public_key;
start= fdn.stamp_start;
expire_withdraw= fdn.stamp_expire_withdraw;
expire_spend= fdn.stamp_expire_deposit;
@ -78,9 +78,9 @@ module Keys_post = struct
{ key; stamp_start; stamp_expire; stamp_end; signkey_secmod_sig= _ }
master_sig =
let open Signatures.ExchangeSigningKeyValidity in
let r : r =
let r =
{
start= stamp_start;
R.start= stamp_start;
expire= stamp_expire;
end_= stamp_end;
signkey_pub= key;