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 17:13:44 +01:00
parent bcb9015c34
commit 8b184a73e0
1 changed files with 38 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

34
src/management.ml
View file

@ -159,23 +159,9 @@ let verify_master_signatures ~sm_signkey ~sm_denom
(* --- *)
let update_master_signatures ~db_conn ~sm_signkey ~sm_denom
MasterSignatures.{ denom_sigs; signkey_sigs } =
let open Syntax in
let* () =
signkey_sigs
|> List.map (fun SignKeySignature.{ key; master_sig } -> (key, master_sig))
|> Secmod_signkey.add_master_signatures db_conn sm_signkey
in
let* () =
denom_sigs
|> List.map (fun DenomSignature.{ h_denom_pub; master_sig } ->
let h_denom_pub = HashCode.to_denomination_hash h_denom_pub in
(h_denom_pub, master_sig))
|> Secmod_denom.add_master_signatures db_conn sm_denom
in
let* () =
(* TODO move to test *)
let check_master_signatures_update ~db_conn ~sm_denom =
let open Syntax in
Secmod_denom.get_denoms sm_denom
|> list_iter (fun denom ->
let error = Error "update_master_signatures sanity check failure" in
@ -209,5 +195,21 @@ let update_master_signatures ~db_conn ~sm_signkey ~sm_denom
let* () = check (fee_refund = denom.fee_refund) in
let* () = check (age_mask = denom.age_mask) in
Ok ())
let update_master_signatures ~db_conn ~sm_signkey ~sm_denom
MasterSignatures.{ denom_sigs; signkey_sigs } =
let open Syntax in
let* () =
signkey_sigs
|> List.map (fun SignKeySignature.{ key; master_sig } -> (key, master_sig))
|> Secmod_signkey.add_master_signatures db_conn sm_signkey
in
let* () =
denom_sigs
|> List.map (fun DenomSignature.{ h_denom_pub; master_sig } ->
let h_denom_pub = HashCode.to_denomination_hash h_denom_pub in
(h_denom_pub, master_sig))
|> Secmod_denom.add_master_signatures db_conn sm_denom
in
let* () = check_master_signatures_update ~db_conn ~sm_denom in
Ok ()