From 13393fbe31c583c15a4bfac9df4eca1d71961fde Mon Sep 17 00:00:00 2001 From: swrup Date: Thu, 11 Dec 2025 16:48:57 +0100 Subject: [PATCH] add logs info --- src/management.ml | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/src/management.ml b/src/management.ml index 77ee9f3c..8d4655f2 100644 --- a/src/management.ml +++ b/src/management.ml @@ -99,6 +99,7 @@ module Keys_get = struct let jsont = FutureKeysResponse.jsont let f req server _env = + Logs.info (fun m -> m "GET /management/keys/"); let sm_signkey = Vif.Server.device Devices.secmod_signkey server in let sm_denom = Vif.Server.device Devices.secmod_denom server in let res = @@ -221,6 +222,7 @@ module Keys_post = struct let jsont = MasterSignatures.jsont let f req server _env = + Logs.info (fun m -> m "POST /management/keys/"); let db_conn = Vif.Server.device Devices.db_connection server in let sm_signkey = Vif.Server.device Devices.secmod_signkey server in let sm_denom = Vif.Server.device Devices.secmod_denom server in @@ -252,6 +254,7 @@ module Denom_revoke = struct let jsont = DenomRevocationSignature.jsont let f req h_denom_pub server _env = + Logs.info (fun m -> m "POST /management/denominations/$H_DENOM_PUB/revoke/"); let db_conn = Vif.Server.device Devices.db_connection server in let sm_denom = Vif.Server.device Devices.secmod_denom server in let res = @@ -284,6 +287,7 @@ module Signkey_revoke = struct let jsont = SignkeyRevocationSignature.jsont let f req exchange_pub server _env = + Logs.info (fun m -> m "POST /management/signkeys/$EXCHANGE_PUB/revoke/"); let db_conn = Vif.Server.device Devices.db_connection server in let sm_signkey = Vif.Server.device Devices.secmod_signkey server in let res = @@ -337,6 +341,7 @@ module Auditors = struct let jsont = AuditorSetupMessage.jsont let f req server _env = + Logs.info (fun m -> m "POST /management/auditors/"); let db_conn = Vif.Server.device Devices.db_connection server in let res = let* v = Vif.Request.of_json req |> unwrap_err_msg in @@ -373,6 +378,7 @@ module Auditors_disable = struct let jsont = AuditorTeardownMessage.jsont let f req auditor_pub server _env = + Logs.info (fun m -> m "POST /management/auditors/$AUDITOR_PUB/revoke/"); let db_conn = Vif.Server.device Devices.db_connection server in let res = let* auditor_pub = Crypto.EddsaPublicKey.of_b32 auditor_pub in @@ -433,6 +439,7 @@ module Wire_fee = struct let jsont = WireFeeSetupMessage.jsont let f req server _env = + Logs.info (fun m -> m "POST /management/wire-fee/"); let db_conn = Vif.Server.device Devices.db_connection server in let res = let* v = Vif.Request.of_json req |> unwrap_err_msg in @@ -496,6 +503,7 @@ module Global_fees = struct let jsont = GlobalFees.jsont let f req server _env = + Logs.info (fun m -> m "POST /management/global-fees/"); let db_conn = Vif.Server.device Devices.db_connection server in let res = let* v = Vif.Request.of_json req |> unwrap_err_msg in @@ -559,6 +567,7 @@ module Wire = struct let jsont = WireSetupMessage.jsont let f req server _env = + Logs.info (fun m -> m "POST /management/wire/"); let db_conn = Vif.Server.device Devices.db_connection server in let res = let* v = Vif.Request.of_json req |> unwrap_err_msg in @@ -591,6 +600,7 @@ module Wire_disable = struct let jsont = WireTeardownMessage.jsont let f req server _env = + Logs.info (fun m -> m "POST /management/wire/disable/"); let db_conn = Vif.Server.device Devices.db_connection server in let res = let* v = Vif.Request.of_json req |> unwrap_err_msg in @@ -630,6 +640,7 @@ module Drain = struct let jsont = DrainProfitsMessage.jsont let f req server _env = + Logs.info (fun m -> m "POST /management/drain/"); let db_conn = Vif.Server.device Devices.db_connection server in let res = let* v = Vif.Request.of_json req |> unwrap_err_msg in @@ -668,6 +679,7 @@ module AmlOfficer = struct let jsont = AmlOfficerSetup.jsont let f req server _env = + Logs.info (fun m -> m "POST /management/aml-officers/"); let db_conn = Vif.Server.device Devices.db_connection server in let res = let* v = Vif.Request.of_json req |> unwrap_err_msg in @@ -708,6 +720,7 @@ module Partners = struct let jsont = ExchangePartnerSetupRequest.jsont let f req server _env = + Logs.info (fun m -> m "POST /management/partners/"); let db_conn = Vif.Server.device Devices.db_connection server in let res = let* v = Vif.Request.of_json req |> unwrap_err_msg in