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

+ denom revoke

Browse source
This commit is contained in:
swrup 2025-12-07 18:35:28 +01:00
parent 96e4bf7956
commit 77948b812d
4 changed files with 37 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/management.ml
View file

@ -216,9 +216,13 @@ let update_master_signatures ~db_conn ~sm_signkey ~sm_denom
[@@@ocaml.warning "-27"]
let verify_denom_revocation_sig ~h_denom_pub
let verify_denom_revocation_sig h_denom_pub
DenomRevocationSignature.{ master_sig } =
let open Bin_sig.MasterDenominationKeyRevocation in
verify ~key:Config.Exchange.master_public_key master_sig { h_denom_pub }
let update_denom_revocation ~db_conn ~sm_signkey ~sm_denom v = Ok ()
let update_denom_revocation ~db_conn ~sm_denom h_denom_pub
DenomRevocationSignature.{ master_sig } =
let open Syntax in
let* () = Secmod_denom.revoke_denomination sm_denom h_denom_pub master_sig in
Ok ()