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

add signkey revoke

Browse source 
(untested)
This commit is contained in:
swrup 2025-12-11 03:19:37 +01:00
parent 472463e68b
commit 399a977c2d
7 changed files with 77 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/management.ml
View file

@ -228,3 +228,18 @@ let update_denom_revocation ~db_conn ~sm_denom h_denom_pub
|> unwrap_err_caqti
in
Ok ()
let verify_signkey_revocation_sig exchange_pub
SignkeyRevocationSignature.{ master_sig } =
let open Bin_sig.MasterSigningKeyRevocation in
verify ~key:Config.Exchange.master_public_key master_sig { exchange_pub }
let update_signkey_revocation ~db_conn ~sm_signkey exchange_pub
SignkeyRevocationSignature.{ master_sig } =
let open Syntax in
let* () = Secmod_signkey.revoke_signkey sm_signkey exchange_pub master_sig in
let* () =
Pg.insert_signkey_revocation db_conn exchange_pub master_sig
|> unwrap_err_caqti
in
Ok ()