diff --git a/src/mte_info.ml b/src/mte_info.ml index 615f4298..5ce10b62 100644 --- a/src/mte_info.ml +++ b/src/mte_info.ml @@ -158,7 +158,7 @@ let jsont = ExchangeKeysResponse.jsont let keys req server _env = Logs.info (fun m -> m "GET /keys"); - let db_conn = Vifu.Server.device Global.db_connection server in + let db_conn = Vifu.Server.device Global.db_conn server in let keys = Vifu.Server.device Global.keys server in let res = let* last_issue_date = diff --git a/src/mte_management.ml b/src/mte_management.ml index 19515b67..4583db6f 100644 --- a/src/mte_management.ml +++ b/src/mte_management.ml @@ -134,7 +134,7 @@ module Auditors = struct let f req server _env = Logs.info (fun m -> m "POST /management/auditors/"); let keys = Vifu.Server.device Global.keys server in - let db_conn = Vifu.Server.device Global.db_connection server in + let db_conn = Vifu.Server.device Global.db_conn server in let res = let* v = Vifu.Request.of_json req |> unwrap_msg in let* () = verify keys v in @@ -179,7 +179,7 @@ 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 Global.keys server in - let db_conn = Vifu.Server.device Global.db_connection server in + let db_conn = Vifu.Server.device Global.db_conn server in let res = let* auditor_pub = Crypto.EddsaPublicKey.of_b32 auditor_pub in let* v = Vifu.Request.of_json req |> unwrap_msg in @@ -239,7 +239,7 @@ module Wire_fee = struct let f req server _env = Logs.info (fun m -> m "POST /management/wire-fee/"); let keys = Vifu.Server.device Global.keys server in - let db_conn = Vifu.Server.device Global.db_connection server in + let db_conn = Vifu.Server.device Global.db_conn 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 Global.db_connection server in + let db_conn = Vifu.Server.device Global.db_conn server in let res = let* v = Vifu.Request.of_json req |> unwrap_msg in let* () = verify v in @@ -400,7 +400,7 @@ module Wire = struct let f req server _env = Logs.info (fun m -> m "POST /management/wire/"); let keys = Vifu.Server.device Global.keys server in - let db_conn = Vifu.Server.device Global.db_connection server in + let db_conn = Vifu.Server.device Global.db_conn server in let res = let* v = Vifu.Request.of_json req |> unwrap_msg in let* () = verify keys v in @@ -439,7 +439,7 @@ module Wire_disable = struct let f req server _env = Logs.info (fun m -> m "POST /management/wire/disable/"); let keys = Vifu.Server.device Global.keys server in - let db_conn = Vifu.Server.device Global.db_connection server in + let db_conn = Vifu.Server.device Global.db_conn server in let res = let* v = Vifu.Request.of_json req |> unwrap_msg in let* () = verify keys v in @@ -488,7 +488,7 @@ module Drain = struct let f req server _env = Logs.info (fun m -> m "POST /management/drain/"); let keys = Vifu.Server.device Global.keys server in - let db_conn = Vifu.Server.device Global.db_connection server in + let db_conn = Vifu.Server.device Global.db_conn server in let res = let* v = Vifu.Request.of_json req |> unwrap_msg in let* () = verify keys v in @@ -528,7 +528,7 @@ module AmlOfficer = struct let f req server _env = Logs.info (fun m -> m "POST /management/aml-officers/"); let keys = Vifu.Server.device Global.keys server in - let db_conn = Vifu.Server.device Global.db_connection server in + let db_conn = Vifu.Server.device Global.db_conn server in let res = let* v = Vifu.Request.of_json req |> unwrap_msg in let* () = verify keys v in @@ -570,7 +570,7 @@ module Partners = struct let f req server _env = Logs.info (fun m -> m "POST /management/partners/"); let keys = Vifu.Server.device Global.keys server in - let db_conn = Vifu.Server.device Global.db_connection server in + let db_conn = Vifu.Server.device Global.db_conn server in let res = let* v = Vifu.Request.of_json req |> unwrap_msg in let* () = verify keys v in