swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-12-07 05:43:04 +01:00
parent 4fc9a96fde
commit 67f1862966
9 changed files with 122 additions and 122 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/management.ml
View file

@ -23,7 +23,7 @@ let mk_future_denom ~sm_denom_priv
DenominationKey.of_rsa RsaDenominationKey.{ age_mask; rsa_pub= pub }
in
let denom_secmod_sig =
let open Bin_sig.DenominationKeyAnnouncementPS in
let open Bin_sig.DenominationKeyAnnouncement in
let h_denom_pub = h_pub in
let h_section_name = Bin_type.Hash_64_cstr.hash section_name in
let anchor_time = stamp_start in
@ -53,7 +53,7 @@ let mk_future_signkey ~sm_signkey_priv
({ pub; priv= _; stamp_start; stamp_expire; stamp_end; master_sig= _ } :
Signkey.t) =
let signkey_secmod_sig =
let open Bin_sig.SigningKeyAnnouncementPS in
let open Bin_sig.SigningKeyAnnouncement in
let exchange_pub = pub in
let anchor_time = stamp_start in
let duration =
@ -112,7 +112,7 @@ let verify_denom_signature ~sm_denom DenomSignature.{ h_denom_pub; master_sig }
is unknown to the exchange."
| Some denom -> Ok denom
in
let open Bin_sig.DenominationKeyValidityPS in
let open Bin_sig.DenominationKeyValidity in
let r : r =
{
master= Config.master_public_key;
@ -141,7 +141,7 @@ let verify_signkey_signature ~sm_signkey SignKeySignature.{ key; master_sig } =
is unknown to the exchange."
| Some signkey -> Ok signkey
in
let open Bin_sig.ExchangeSigningKeyValidityPS in
let open Bin_sig.ExchangeSigningKeyValidity in
let r : r =
{
start= signkey.stamp_start;