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

10
src/pg.ml
View file

@ -169,3 +169,13 @@ let insert_denomination_revocation =
in
fun (module Conn : CONN) h_denom_pub master_sig ->
Conn.exec denomination_revocation_insert (h_denom_pub, master_sig)
let insert_signkey_revocation =
let signkey_revocation_insert =
let master_sig = Bin_sig.MasterSigningKeyRevocation.caqti in
Caqti_type.(t2 eddsa_public master_sig ->. unit)
"INSERT INTO signkey_revocations (esk_serial, master_sig) SELECT \
esk_serial, $2 FROM exchange_sign_keys WHERE exchange_pub=$1"
in
fun (module Conn : CONN) exchange_pub master_sig ->
Conn.exec signkey_revocation_insert (exchange_pub, master_sig)