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

wip respond.ml

Browse source
This commit is contained in:
swrup 2026-02-12 12:13:30 +01:00
parent 059c5d796f
commit 762ac6a43a
5 changed files with 56 additions and 72 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/http_management.ml
View file

@ -109,7 +109,7 @@ module Keys_get = struct
let s = Api.encode_exn jsont v in
Ok s
in
Respond_util.respond_with_res res req
Respond.result res req
end
module Keys_post = struct
@ -215,7 +215,7 @@ module Keys_post = struct
let* () = do_ ~db_conn sm v in
Ok ""
in
Respond_util.respond_with_res res req
Respond.result res req
end
module Denom_revoke = struct
@ -246,7 +246,7 @@ module Denom_revoke = struct
let* () = do_ ~db_conn sm h_denom_pub v in
Ok ""
in
Respond_util.respond_with_res res req
Respond.result res req
end
module Signkey_revoke = struct
@ -277,7 +277,7 @@ module Signkey_revoke = struct
let* () = do_ ~db_conn sm exchange_pub v in
Ok ""
in
Respond_util.respond_with_res res req
Respond.result res req
end
module Auditors = struct
@ -333,7 +333,7 @@ module Auditors = struct
let* () = do_ ~db_conn v in
Ok ""
in
Respond_util.respond_with_res res req
Respond.result res req
end
module Auditors_disable = struct
@ -374,7 +374,7 @@ module Auditors_disable = struct
let* () = do_ ~db_conn auditor_pub v in
Ok ""
in
Respond_util.respond_with_res res req
Respond.result res req
end
module Wire_fee = struct
@ -433,7 +433,7 @@ module Wire_fee = struct
let* () = do_ ~db_conn v in
Ok ""
in
Respond_util.respond_with_res res req
Respond.result res req
end
module Global_fees = struct
@ -504,7 +504,7 @@ module Global_fees = struct
let* () = do_ ~db_conn v in
Ok ""
in
Respond_util.respond_with_res res req
Respond.result res req
end
module Wire = struct
@ -582,7 +582,7 @@ module Wire = struct
let* () = do_ ~db_conn v in
Ok ""
in
Respond_util.respond_with_res res req
Respond.result res req
end
module Wire_disable = struct
@ -617,7 +617,7 @@ module Wire_disable = struct
let* () = do_ ~db_conn v in
Ok ""
in
Respond_util.respond_with_res res req
Respond.result res req
end
module Drain = struct
@ -657,7 +657,7 @@ module Drain = struct
let* () = do_ ~db_conn v in
Ok ""
in
Respond_util.respond_with_res res req
Respond.result res req
end
module AmlOfficer = struct
@ -697,7 +697,7 @@ module AmlOfficer = struct
let* () = do_ ~db_conn v in
Ok ""
in
Respond_util.respond_with_res res req
Respond.result res req
end
module Partners = struct
@ -739,5 +739,5 @@ module Partners = struct
let* () = do_ ~db_conn v in
Ok ""
in
Respond_util.respond_with_res res req
Respond.result res req
end