From a22256c11ab67f9930be5a598dd50cb8015f2fcb Mon Sep 17 00:00:00 2001 From: swrup Date: Thu, 12 Mar 2026 18:46:50 +0100 Subject: [PATCH] --- src/mte_info.ml | 4 ++-- src/mte_management.ml | 42 +++++++++++++++++++++--------------------- 2 files changed, 23 insertions(+), 23 deletions(-) diff --git a/src/mte_info.ml b/src/mte_info.ml index 5fefcdd3..615f4298 100644 --- a/src/mte_info.ml +++ b/src/mte_info.ml @@ -158,8 +158,8 @@ let jsont = ExchangeKeysResponse.jsont let keys req server _env = Logs.info (fun m -> m "GET /keys"); - let db_conn = Vifu.Server.device Devices.db_connection server in - let keys = Vifu.Server.device Devices.keys server in + let db_conn = Vifu.Server.device Global.db_connection server in + let keys = Vifu.Server.device Global.keys server in let res = let* last_issue_date = match Vifu.Queries.get req "last_issue_date" with diff --git a/src/mte_management.ml b/src/mte_management.ml index b22331cc..19515b67 100644 --- a/src/mte_management.ml +++ b/src/mte_management.ml @@ -7,7 +7,7 @@ module Keys_get = struct let f req server _env = Logs.info (fun m -> m "GET /management/keys/"); - let (module Keys : Keys.S) = Vifu.Server.device Devices.keys server in + let (module Keys : Keys.S) = Vifu.Server.device Global.keys server in let res = let* v = Keys.make_future_keys_response () in Api.encode jsont v @@ -31,7 +31,7 @@ module Keys_post = struct let f req server _env = Logs.info (fun m -> m "POST /management/keys/"); - let keys = Vifu.Server.device Devices.keys server in + let keys = Vifu.Server.device Global.keys server in let res = let* v = Vifu.Request.of_json req |> unwrap_msg in let* () = verify keys v in @@ -56,7 +56,7 @@ module Denom_revoke = struct let f req h_denom_pub server _env = Logs.info (fun m -> m "POST /management/denominations/$H_DENOM_PUB/revoke/"); - let keys = Vifu.Server.device Devices.keys server in + let keys = Vifu.Server.device Global.keys server in let res = let* h_denom_pub = Crypto.DenominationHash.of_b32 h_denom_pub in let* v = Vifu.Request.of_json req |> unwrap_msg in @@ -82,7 +82,7 @@ module Signkey_revoke = struct let f req exchange_pub server _env = Logs.info (fun m -> m "POST /management/signkeys/$EXCHANGE_PUB/revoke/"); - let keys = Vifu.Server.device Devices.keys server in + let keys = Vifu.Server.device Global.keys server in let res = let* exchange_pub = Crypto.EddsaPublicKey.of_b32 exchange_pub in let* v = Vifu.Request.of_json req |> unwrap_msg in @@ -133,8 +133,8 @@ module Auditors = struct let f req server _env = Logs.info (fun m -> m "POST /management/auditors/"); - let keys = Vifu.Server.device Devices.keys server in - let db_conn = Vifu.Server.device Devices.db_connection server in + let keys = Vifu.Server.device Global.keys server in + let db_conn = Vifu.Server.device Global.db_connection server in let res = let* v = Vifu.Request.of_json req |> unwrap_msg in let* () = verify keys v in @@ -178,8 +178,8 @@ module Auditors_disable = struct let f req auditor_pub server _env = Logs.info (fun m -> m "POST /management/auditors/$AUDITOR_PUB/disable/"); - let keys = Vifu.Server.device Devices.keys server in - let db_conn = Vifu.Server.device Devices.db_connection server in + let keys = Vifu.Server.device Global.keys server in + let db_conn = Vifu.Server.device Global.db_connection server in let res = let* auditor_pub = Crypto.EddsaPublicKey.of_b32 auditor_pub in let* v = Vifu.Request.of_json req |> unwrap_msg in @@ -238,8 +238,8 @@ module Wire_fee = struct let f req server _env = Logs.info (fun m -> m "POST /management/wire-fee/"); - let keys = Vifu.Server.device Devices.keys server in - let db_conn = Vifu.Server.device Devices.db_connection server in + let keys = Vifu.Server.device Global.keys server in + let db_conn = Vifu.Server.device Global.db_connection server in let res = let* v = Vifu.Request.of_json req |> unwrap_msg in let* () = verify keys v in @@ -284,7 +284,7 @@ module Global_fees = struct and once set for a timeframe, it should not change. *) let f req server _env = Logs.info (fun m -> m "POST /management/global-fees/"); - let db_conn = Vifu.Server.device Devices.db_connection server in + let db_conn = Vifu.Server.device Global.db_connection server in let res = let* v = Vifu.Request.of_json req |> unwrap_msg in let* () = verify v in @@ -399,8 +399,8 @@ module Wire = struct let f req server _env = Logs.info (fun m -> m "POST /management/wire/"); - let keys = Vifu.Server.device Devices.keys server in - let db_conn = Vifu.Server.device Devices.db_connection server in + let keys = Vifu.Server.device Global.keys server in + let db_conn = Vifu.Server.device Global.db_connection server in let res = let* v = Vifu.Request.of_json req |> unwrap_msg in let* () = verify keys v in @@ -438,8 +438,8 @@ module Wire_disable = struct let f req server _env = Logs.info (fun m -> m "POST /management/wire/disable/"); - let keys = Vifu.Server.device Devices.keys server in - let db_conn = Vifu.Server.device Devices.db_connection server in + let keys = Vifu.Server.device Global.keys server in + let db_conn = Vifu.Server.device Global.db_connection server in let res = let* v = Vifu.Request.of_json req |> unwrap_msg in let* () = verify keys v in @@ -487,8 +487,8 @@ module Drain = struct let f req server _env = Logs.info (fun m -> m "POST /management/drain/"); - let keys = Vifu.Server.device Devices.keys server in - let db_conn = Vifu.Server.device Devices.db_connection server in + let keys = Vifu.Server.device Global.keys server in + let db_conn = Vifu.Server.device Global.db_connection server in let res = let* v = Vifu.Request.of_json req |> unwrap_msg in let* () = verify keys v in @@ -527,8 +527,8 @@ module AmlOfficer = struct let f req server _env = Logs.info (fun m -> m "POST /management/aml-officers/"); - let keys = Vifu.Server.device Devices.keys server in - let db_conn = Vifu.Server.device Devices.db_connection server in + let keys = Vifu.Server.device Global.keys server in + let db_conn = Vifu.Server.device Global.db_connection server in let res = let* v = Vifu.Request.of_json req |> unwrap_msg in let* () = verify keys v in @@ -569,8 +569,8 @@ module Partners = struct let f req server _env = Logs.info (fun m -> m "POST /management/partners/"); - let keys = Vifu.Server.device Devices.keys server in - let db_conn = Vifu.Server.device Devices.db_connection server in + let keys = Vifu.Server.device Global.keys server in + let db_conn = Vifu.Server.device Global.db_connection server in let res = let* v = Vifu.Request.of_json req |> unwrap_msg in let* () = verify keys v in