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

Browse source
This commit is contained in:
swrup 2025-10-19 00:15:47 +02:00
parent 683d275f73
commit bb3bd726ae
3 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/management.ml
View file

@ -58,7 +58,7 @@ let mk_future_denom denom_key_signf
}
let mk_future_signkey signkey_signf
({ pub; sign= _; stamp_start; stamp_expire; stamp_end } : Secmod_keys.t) =
({ pub; sign= _; stamp_start; stamp_expire; stamp_end } : Signkey.t) =
let signkey_secmod_sig =
let open Binary_formats in
let exchange_pub = pub in
@ -88,11 +88,11 @@ let mk_future_signkey signkey_signf
let mk_future_keys_response ~signkey ~online_key ~denom_key ~denominations =
let future_denoms =
(* todo: "only those lacking a master signature" *)
List.map (mk_future_denom denom_key.Secmod_keys.sign) denominations
List.map (mk_future_denom denom_key.Signkey.sign) denominations
in
let future_signkeys =
(* todo: "only those lacking a master signature" *)
List.map (mk_future_signkey signkey.Secmod_keys.sign) [ online_key ]
List.map (mk_future_signkey signkey.Signkey.sign) [ online_key ]
in
let master_pub = Config.Exchange.master_public_key in
let denom_secmod_public_key = denom_key.pub in