+ wip add MK_master_sig
This commit is contained in:
parent
37ed47326a
commit
77d10ee93c
2 changed files with 25 additions and 28 deletions
|
|
@ -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;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue