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 18:49:48 +01:00
parent 77948b812d
commit 7b4f3e0138
2 changed files with 15 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/management.ml
View file

@ -214,8 +214,6 @@ let update_master_signatures ~db_conn ~sm_signkey ~sm_denom
let* () = check_master_signatures_update ~db_conn ~sm_denom in let* () = check_master_signatures_update ~db_conn ~sm_denom in
Ok () Ok ()
[@@@ocaml.warning "-27"]
let verify_denom_revocation_sig h_denom_pub let verify_denom_revocation_sig h_denom_pub
DenomRevocationSignature.{ master_sig } = DenomRevocationSignature.{ master_sig } =
let open Bin_sig.MasterDenominationKeyRevocation in let open Bin_sig.MasterDenominationKeyRevocation in
@ -225,4 +223,8 @@ let update_denom_revocation ~db_conn ~sm_denom h_denom_pub
DenomRevocationSignature.{ master_sig } = DenomRevocationSignature.{ master_sig } =
let open Syntax in let open Syntax in
let* () = Secmod_denom.revoke_denomination sm_denom h_denom_pub master_sig in let* () = Secmod_denom.revoke_denomination sm_denom h_denom_pub master_sig in
let* () =
Pg.insert_denomination_revocation db_conn h_denom_pub master_sig
|> unwrap_err_caqti
in
Ok () Ok ()

11
src/pg.ml
View file

@ -158,3 +158,14 @@ let add_denomination_key =
fee_deposit, fee_deposit,
fee_refresh, fee_refresh,
(fee_refund, age_mask) ) (fee_refund, age_mask) )
let insert_denomination_revocation =
let denomination_revocation_insert =
let master_sig = Bin_sig.MasterDenominationKeyRevocation.caqti in
Caqti_type.(t2 denomination_hash master_sig ->. unit)
"INSERT INTO denomination_revocations (denominations_serial, master_sig) \
SELECT denominations_serial, $2 FROM denominations WHERE \
denom_pub_hash=$1"
in
fun (module Conn : CONN) h_denom_pub master_sig ->
Conn.exec denomination_revocation_insert (h_denom_pub, master_sig)