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-11 04:25:16 +01:00
parent a7b205b33e
commit c150ff242c
2 changed files with 2 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/handler.ml
View file

@ -24,6 +24,7 @@ module Respond_util = struct
end
include Respond_util
open Syntax
open Api
let management_keys_get req server _env =
@ -39,7 +40,6 @@ let management_keys_get req server _env =
let management_keys_post_jsont = MasterSignatures.jsont
let management_keys_post req 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
@ -59,7 +59,6 @@ let management_keys_post req server _env =
let management_denom_revoke_jsont = DenomRevocationSignature.jsont
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_denom = Vif.Server.device Devices.secmod_denom server in
@ -76,7 +75,6 @@ let management_denom_revoke req h_denom_pub server _env =
let management_signkey_revoke_jsont = SignkeyRevocationSignature.jsont
let management_signkey_revoke req exchange_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
@ -92,7 +90,6 @@ let management_signkey_revoke req exchange_pub server _env =
let management_auditors_jsont = AuditorSetupMessage.jsont
let management_auditors req server _env =
let open Syntax in
let open Management in
let db_conn = Vif.Server.device Devices.db_connection server in
let res =