swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2026-03-12 18:48:12 +01:00
parent 6972b57935
commit d337c5e07b
2 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/mte_info.ml
View file

@ -158,7 +158,7 @@ let jsont = ExchangeKeysResponse.jsont
let keys req server _env = let keys req server _env =
Logs.info (fun m -> m "GET /keys"); 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 keys = Vifu.Server.device Global.keys server in
let res = let res =
let* last_issue_date = let* last_issue_date =

18
src/mte_management.ml
View file

@ -134,7 +134,7 @@ module Auditors = struct
let f req server _env = let f req server _env =
Logs.info (fun m -> m "POST /management/auditors/"); Logs.info (fun m -> m "POST /management/auditors/");
let keys = Vifu.Server.device Global.keys server in 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 res =
let* v = Vifu.Request.of_json req |> unwrap_msg in let* v = Vifu.Request.of_json req |> unwrap_msg in
let* () = verify keys v in let* () = verify keys v in
@ -179,7 +179,7 @@ module Auditors_disable = struct
let f req auditor_pub server _env = let f req auditor_pub server _env =
Logs.info (fun m -> m "POST /management/auditors/$AUDITOR_PUB/disable/"); Logs.info (fun m -> m "POST /management/auditors/$AUDITOR_PUB/disable/");
let keys = Vifu.Server.device Global.keys server in 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 res =
let* auditor_pub = Crypto.EddsaPublicKey.of_b32 auditor_pub in let* auditor_pub = Crypto.EddsaPublicKey.of_b32 auditor_pub in
let* v = Vifu.Request.of_json req |> unwrap_msg in let* v = Vifu.Request.of_json req |> unwrap_msg in
@ -239,7 +239,7 @@ module Wire_fee = struct
let f req server _env = let f req server _env =
Logs.info (fun m -> m "POST /management/wire-fee/"); Logs.info (fun m -> m "POST /management/wire-fee/");
let keys = Vifu.Server.device Global.keys server in 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 res =
let* v = Vifu.Request.of_json req |> unwrap_msg in let* v = Vifu.Request.of_json req |> unwrap_msg in
let* () = verify keys v in let* () = verify keys v in
@ -284,7 +284,7 @@ module Global_fees = struct
and once set for a timeframe, it should not change. *) and once set for a timeframe, it should not change. *)
let f req server _env = let f req server _env =
Logs.info (fun m -> m "POST /management/global-fees/"); 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 res =
let* v = Vifu.Request.of_json req |> unwrap_msg in let* v = Vifu.Request.of_json req |> unwrap_msg in
let* () = verify v in let* () = verify v in
@ -400,7 +400,7 @@ module Wire = struct
let f req server _env = let f req server _env =
Logs.info (fun m -> m "POST /management/wire/"); Logs.info (fun m -> m "POST /management/wire/");
let keys = Vifu.Server.device Global.keys server in 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 res =
let* v = Vifu.Request.of_json req |> unwrap_msg in let* v = Vifu.Request.of_json req |> unwrap_msg in
let* () = verify keys v in let* () = verify keys v in
@ -439,7 +439,7 @@ module Wire_disable = struct
let f req server _env = let f req server _env =
Logs.info (fun m -> m "POST /management/wire/disable/"); Logs.info (fun m -> m "POST /management/wire/disable/");
let keys = Vifu.Server.device Global.keys server in 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 res =
let* v = Vifu.Request.of_json req |> unwrap_msg in let* v = Vifu.Request.of_json req |> unwrap_msg in
let* () = verify keys v in let* () = verify keys v in
@ -488,7 +488,7 @@ module Drain = struct
let f req server _env = let f req server _env =
Logs.info (fun m -> m "POST /management/drain/"); Logs.info (fun m -> m "POST /management/drain/");
let keys = Vifu.Server.device Global.keys server in 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 res =
let* v = Vifu.Request.of_json req |> unwrap_msg in let* v = Vifu.Request.of_json req |> unwrap_msg in
let* () = verify keys v in let* () = verify keys v in
@ -528,7 +528,7 @@ module AmlOfficer = struct
let f req server _env = let f req server _env =
Logs.info (fun m -> m "POST /management/aml-officers/"); Logs.info (fun m -> m "POST /management/aml-officers/");
let keys = Vifu.Server.device Global.keys server in 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 res =
let* v = Vifu.Request.of_json req |> unwrap_msg in let* v = Vifu.Request.of_json req |> unwrap_msg in
let* () = verify keys v in let* () = verify keys v in
@ -570,7 +570,7 @@ module Partners = struct
let f req server _env = let f req server _env =
Logs.info (fun m -> m "POST /management/partners/"); Logs.info (fun m -> m "POST /management/partners/");
let keys = Vifu.Server.device Global.keys server in 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 res =
let* v = Vifu.Request.of_json req |> unwrap_msg in let* v = Vifu.Request.of_json req |> unwrap_msg in
let* () = verify keys v in let* () = verify keys v in