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

~

Browse source
This commit is contained in:
swrup 2026-02-23 07:24:40 +01:00
parent af355249fc
commit 72b0c3012a
7 changed files with 72 additions and 76 deletions
Download patch file Download diff file Expand all files Collapse all files

51
src/http_management.ml
View file

@ -10,8 +10,7 @@ module Keys_get = struct
let (module Keys : Keys.S) = Vif.Server.device Devices.keys server in
let res =
let* v = Keys.make_future_keys_response () in
let s = Api.encode_exn jsont v in
Ok s
Api.encode jsont v
in
Respond.result res req
end
@ -108,9 +107,9 @@ module Keys_post = struct
let* v = Vif.Request.of_json req |> unwrap_err_msg in
let* () = verify keys v in
let* () = do_ ~db_conn keys v in
Ok ""
Ok ()
in
Respond.result res req
Respond.result_no_content res req
end
module Denom_revoke = struct
@ -134,9 +133,9 @@ module Denom_revoke = struct
let* v = Vif.Request.of_json req |> unwrap_err_msg in
let* () = verify keys h_denom_pub v in
let* () = do_ keys h_denom_pub v in
Ok ""
Ok ()
in
Respond.result res req
Respond.result_no_content res req
end
module Signkey_revoke = struct
@ -160,9 +159,9 @@ module Signkey_revoke = struct
let* v = Vif.Request.of_json req |> unwrap_err_msg in
let* () = verify keys exchange_pub v in
let* () = do_ keys exchange_pub v in
Ok ""
Ok ()
in
Respond.result res req
Respond.result_no_content res req
end
module Auditors = struct
@ -214,9 +213,9 @@ module Auditors = struct
let* v = Vif.Request.of_json req |> unwrap_err_msg in
let* () = verify keys v in
let* () = do_ ~db_conn v in
Ok ""
Ok ()
in
Respond.result res req
Respond.result_no_content res req
end
module Auditors_disable = struct
@ -255,9 +254,9 @@ module Auditors_disable = struct
let* v = Vif.Request.of_json req |> unwrap_err_msg in
let* () = verify keys auditor_pub v in
let* () = do_ ~db_conn auditor_pub v in
Ok ""
Ok ()
in
Respond.result res req
Respond.result_no_content res req
end
module Wire_fee = struct
@ -314,9 +313,9 @@ module Wire_fee = struct
let* v = Vif.Request.of_json req |> unwrap_err_msg in
let* () = verify keys v in
let* () = do_ ~db_conn v in
Ok ""
Ok ()
in
Respond.result res req
Respond.result_no_content res req
end
module Global_fees = struct
@ -385,9 +384,9 @@ module Global_fees = struct
let* v = Vif.Request.of_json req |> unwrap_err_msg in
let* () = verify keys v in
let* () = do_ ~db_conn v in
Ok ""
Ok ()
in
Respond.result res req
Respond.result_no_content res req
end
module Wire = struct
@ -464,9 +463,9 @@ module Wire = struct
let* v = Vif.Request.of_json req |> unwrap_err_msg in
let* () = verify keys v in
let* () = do_ ~db_conn v in
Ok ""
Ok ()
in
Respond.result res req
Respond.result_no_content res req
end
module Wire_disable = struct
@ -499,9 +498,9 @@ module Wire_disable = struct
let* v = Vif.Request.of_json req |> unwrap_err_msg in
let* () = verify keys v in
let* () = do_ ~db_conn v in
Ok ""
Ok ()
in
Respond.result res req
Respond.result_no_content res req
end
module Drain = struct
@ -539,9 +538,9 @@ module Drain = struct
let* v = Vif.Request.of_json req |> unwrap_err_msg in
let* () = verify keys v in
let* () = do_ ~db_conn v in
Ok ""
Ok ()
in
Respond.result res req
Respond.result_no_content res req
end
module AmlOfficer = struct
@ -579,9 +578,9 @@ module AmlOfficer = struct
let* v = Vif.Request.of_json req |> unwrap_err_msg in
let* () = verify keys v in
let* () = do_ ~db_conn v in
Ok ""
Ok ()
in
Respond.result res req
Respond.result_no_content res req
end
module Partners = struct
@ -621,7 +620,7 @@ module Partners = struct
let* v = Vif.Request.of_json req |> unwrap_err_msg in
let* () = verify keys v in
let* () = do_ ~db_conn v in
Ok ""
Ok ()
in
Respond.result res req
Respond.result_no_content res req
end