+ s/Vif/Vifu/
This commit is contained in:
parent
69755537f6
commit
96f10ec373
7 changed files with 57 additions and 57 deletions
|
|
@ -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) = Vif.Server.device Devices.keys server in
|
||||
let (module Keys : Keys.S) = Vifu.Server.device Devices.keys server in
|
||||
let res =
|
||||
let* v = Keys.make_future_keys_response () in
|
||||
Api.encode jsont v
|
||||
|
|
@ -31,9 +31,9 @@ module Keys_post = struct
|
|||
|
||||
let f req server _env =
|
||||
Logs.info (fun m -> m "POST /management/keys/");
|
||||
let keys = Vif.Server.device Devices.keys server in
|
||||
let keys = Vifu.Server.device Devices.keys server in
|
||||
let res =
|
||||
let* v = Vif.Request.of_json req |> unwrap_msg in
|
||||
let* v = Vifu.Request.of_json req |> unwrap_msg in
|
||||
let* () = verify keys v in
|
||||
let* () = do_ keys v in
|
||||
Ok ()
|
||||
|
|
@ -56,10 +56,10 @@ 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 = Vif.Server.device Devices.keys server in
|
||||
let keys = Vifu.Server.device Devices.keys server in
|
||||
let res =
|
||||
let* h_denom_pub = Crypto.DenominationHash.of_b32 h_denom_pub in
|
||||
let* v = Vif.Request.of_json req |> unwrap_msg in
|
||||
let* v = Vifu.Request.of_json req |> unwrap_msg in
|
||||
let* () = verify keys h_denom_pub v in
|
||||
let* () = do_ keys h_denom_pub v in
|
||||
Ok ()
|
||||
|
|
@ -82,10 +82,10 @@ module Signkey_revoke = struct
|
|||
|
||||
let f req exchange_pub server _env =
|
||||
Logs.info (fun m -> m "POST /management/signkeys/$EXCHANGE_PUB/revoke/");
|
||||
let keys = Vif.Server.device Devices.keys server in
|
||||
let keys = Vifu.Server.device Devices.keys server in
|
||||
let res =
|
||||
let* exchange_pub = Crypto.EddsaPublicKey.of_b32 exchange_pub in
|
||||
let* v = Vif.Request.of_json req |> unwrap_msg in
|
||||
let* v = Vifu.Request.of_json req |> unwrap_msg in
|
||||
let* () = verify keys exchange_pub v in
|
||||
let* () = do_ keys exchange_pub v in
|
||||
Ok ()
|
||||
|
|
@ -133,10 +133,10 @@ module Auditors = struct
|
|||
|
||||
let f req server _env =
|
||||
Logs.info (fun m -> m "POST /management/auditors/");
|
||||
let keys = Vif.Server.device Devices.keys server in
|
||||
let db_conn = Vif.Server.device Devices.db_connection server in
|
||||
let keys = Vifu.Server.device Devices.keys server in
|
||||
let db_conn = Vifu.Server.device Devices.db_connection server in
|
||||
let res =
|
||||
let* v = Vif.Request.of_json req |> unwrap_msg in
|
||||
let* v = Vifu.Request.of_json req |> unwrap_msg in
|
||||
let* () = verify keys v in
|
||||
let* () = do_ ~db_conn v in
|
||||
Ok ()
|
||||
|
|
@ -178,11 +178,11 @@ module Auditors_disable = struct
|
|||
|
||||
let f req auditor_pub server _env =
|
||||
Logs.info (fun m -> m "POST /management/auditors/$AUDITOR_PUB/disable/");
|
||||
let keys = Vif.Server.device Devices.keys server in
|
||||
let db_conn = Vif.Server.device Devices.db_connection server in
|
||||
let keys = Vifu.Server.device Devices.keys server in
|
||||
let db_conn = Vifu.Server.device Devices.db_connection server in
|
||||
let res =
|
||||
let* auditor_pub = Crypto.EddsaPublicKey.of_b32 auditor_pub in
|
||||
let* v = Vif.Request.of_json req |> unwrap_msg in
|
||||
let* v = Vifu.Request.of_json req |> unwrap_msg in
|
||||
let* () = verify keys auditor_pub v in
|
||||
let* () = do_ ~db_conn auditor_pub v in
|
||||
Ok ()
|
||||
|
|
@ -238,10 +238,10 @@ module Wire_fee = struct
|
|||
|
||||
let f req server _env =
|
||||
Logs.info (fun m -> m "POST /management/wire-fee/");
|
||||
let keys = Vif.Server.device Devices.keys server in
|
||||
let db_conn = Vif.Server.device Devices.db_connection server in
|
||||
let keys = Vifu.Server.device Devices.keys server in
|
||||
let db_conn = Vifu.Server.device Devices.db_connection server in
|
||||
let res =
|
||||
let* v = Vif.Request.of_json req |> unwrap_msg in
|
||||
let* v = Vifu.Request.of_json req |> unwrap_msg in
|
||||
let* () = verify keys v in
|
||||
let* () = do_ ~db_conn v in
|
||||
Ok ()
|
||||
|
|
@ -284,9 +284,9 @@ 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 = Vif.Server.device Devices.db_connection server in
|
||||
let db_conn = Vifu.Server.device Devices.db_connection server in
|
||||
let res =
|
||||
let* v = Vif.Request.of_json req |> unwrap_msg in
|
||||
let* v = Vifu.Request.of_json req |> unwrap_msg in
|
||||
let* () = verify v in
|
||||
let* () = do_ ~db_conn v in
|
||||
Ok ()
|
||||
|
|
@ -399,10 +399,10 @@ module Wire = struct
|
|||
|
||||
let f req server _env =
|
||||
Logs.info (fun m -> m "POST /management/wire/");
|
||||
let keys = Vif.Server.device Devices.keys server in
|
||||
let db_conn = Vif.Server.device Devices.db_connection server in
|
||||
let keys = Vifu.Server.device Devices.keys server in
|
||||
let db_conn = Vifu.Server.device Devices.db_connection server in
|
||||
let res =
|
||||
let* v = Vif.Request.of_json req |> unwrap_msg in
|
||||
let* v = Vifu.Request.of_json req |> unwrap_msg in
|
||||
let* () = verify keys v in
|
||||
let* () = do_ ~db_conn v in
|
||||
Ok ()
|
||||
|
|
@ -438,10 +438,10 @@ module Wire_disable = struct
|
|||
|
||||
let f req server _env =
|
||||
Logs.info (fun m -> m "POST /management/wire/disable/");
|
||||
let keys = Vif.Server.device Devices.keys server in
|
||||
let db_conn = Vif.Server.device Devices.db_connection server in
|
||||
let keys = Vifu.Server.device Devices.keys server in
|
||||
let db_conn = Vifu.Server.device Devices.db_connection server in
|
||||
let res =
|
||||
let* v = Vif.Request.of_json req |> unwrap_msg in
|
||||
let* v = Vifu.Request.of_json req |> unwrap_msg in
|
||||
let* () = verify keys v in
|
||||
let* () = do_ ~db_conn v in
|
||||
Ok ()
|
||||
|
|
@ -487,10 +487,10 @@ module Drain = struct
|
|||
|
||||
let f req server _env =
|
||||
Logs.info (fun m -> m "POST /management/drain/");
|
||||
let keys = Vif.Server.device Devices.keys server in
|
||||
let db_conn = Vif.Server.device Devices.db_connection server in
|
||||
let keys = Vifu.Server.device Devices.keys server in
|
||||
let db_conn = Vifu.Server.device Devices.db_connection server in
|
||||
let res =
|
||||
let* v = Vif.Request.of_json req |> unwrap_msg in
|
||||
let* v = Vifu.Request.of_json req |> unwrap_msg in
|
||||
let* () = verify keys v in
|
||||
let* () = do_ ~db_conn v in
|
||||
Ok ()
|
||||
|
|
@ -527,10 +527,10 @@ module AmlOfficer = struct
|
|||
|
||||
let f req server _env =
|
||||
Logs.info (fun m -> m "POST /management/aml-officers/");
|
||||
let keys = Vif.Server.device Devices.keys server in
|
||||
let db_conn = Vif.Server.device Devices.db_connection server in
|
||||
let keys = Vifu.Server.device Devices.keys server in
|
||||
let db_conn = Vifu.Server.device Devices.db_connection server in
|
||||
let res =
|
||||
let* v = Vif.Request.of_json req |> unwrap_msg in
|
||||
let* v = Vifu.Request.of_json req |> unwrap_msg in
|
||||
let* () = verify keys v in
|
||||
let* () = do_ ~db_conn v in
|
||||
Ok ()
|
||||
|
|
@ -569,10 +569,10 @@ module Partners = struct
|
|||
|
||||
let f req server _env =
|
||||
Logs.info (fun m -> m "POST /management/partners/");
|
||||
let keys = Vif.Server.device Devices.keys server in
|
||||
let db_conn = Vif.Server.device Devices.db_connection server in
|
||||
let keys = Vifu.Server.device Devices.keys server in
|
||||
let db_conn = Vifu.Server.device Devices.db_connection server in
|
||||
let res =
|
||||
let* v = Vif.Request.of_json req |> unwrap_msg in
|
||||
let* v = Vifu.Request.of_json req |> unwrap_msg in
|
||||
let* () = verify keys v in
|
||||
let* () = do_ ~db_conn v in
|
||||
Ok ()
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue