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:35:28 +01:00
parent 96e4bf7956
commit 39bf947cad
4 changed files with 37 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/handler.ml
View file

@ -62,14 +62,14 @@ let management_denom_revoke req h_denom_pub server _env =
let open Syntax in
let open Management in
let db_conn = Vif.Server.device Devices.db_connection server in
let sm_signkey = Vif.Server.device Devices.secmod_signkey server in
let _sm_signkey = Vif.Server.device Devices.secmod_signkey server in
let sm_denom = Vif.Server.device Devices.secmod_denom server in
let res =
let* h_denom_pub = HashCode.of_b32 h_denom_pub in
let h_denom_pub = HashCode.to_denomination_hash h_denom_pub in
let* v = Vif.Request.of_json req |> unwrap_err_msg in
let* () = verify_denom_revocation_sig ~h_denom_pub v in
let* () = update_denom_revocation ~db_conn ~sm_signkey ~sm_denom v in
let* () = verify_denom_revocation_sig h_denom_pub v in
let* () = update_denom_revocation ~db_conn ~sm_denom h_denom_pub v in
Ok ""
in
respond_with_res res req