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

~

Browse source
This commit is contained in:
swrup 2025-12-11 09:54:40 +01:00
parent 625c194fff
commit 5dec579179
5 changed files with 727 additions and 719 deletions
Download patch file Download diff file Expand all files Collapse all files

67
src/mte.ml
View file

@ -26,42 +26,37 @@ let routes =
let open Vif.Type in
let get_ path = get (path /?? nil) in
let post path jsont = post (json_encoding jsont) (path /?? nil) in
let v s = rel / s in
let open Handler in
[
get_ rel --> hello;
get_ (v "terms") --> Static.terms;
get_ (v "privacy") --> Static.privacy;
get_ (v "management" / "keys") --> management_keys_get;
post (v "management" / "keys") management_keys_post_jsont
--> management_keys_post;
post
(v "management" / "denominations" /% string `Path / "revoke")
management_denom_revoke_jsont
--> management_denom_revoke;
post
(v "management" / "signkeys" /% string `Path / "revoke")
management_signkey_revoke_jsont
--> management_signkey_revoke;
post (v "management" / "auditors") management_auditors_jsont
--> management_auditors;
post
(v "management" / "auditors" /% string `Path / "disable")
management_auditors_disable_jsont
--> management_auditors_disable;
post (v "management" / "wire-fee") management_wire_fee_jsont
--> management_wire_fee;
post (v "management" / "global-fees") management_global_fees_jsont
--> management_global_fees;
post (v "management" / "wire") management_wire_jsont --> management_wire;
post (v "management" / "wire" / "disable") management_wire_disable_jsont
--> management_wire_disable;
post (v "management" / "drain") management_drain_jsont --> management_drain;
post (v "management" / "aml-officers") management_aml_officers_jsont
--> management_aml_officers;
post (v "management" / "partners") management_partners_jsont
--> management_partners;
]
let static =
let v s = rel / s in
[
get_ rel --> hello;
get_ (v "terms") --> Static.terms;
get_ (v "privacy") --> Static.privacy;
]
in
let management =
let open Management in
let v s = rel / "management" / s in
[
get_ (v "keys") --> Keys_get.f;
post (v "keys") Keys_post.jsont --> Keys_post.f;
post (v "denominations" /% string `Path / "revoke") Denom_revoke.jsont
--> Denom_revoke.f;
post (v "signkeys" /% string `Path / "revoke") Signkey_revoke.jsont
--> Signkey_revoke.f;
post (v "auditors") Auditors.jsont --> Auditors.f;
post (v "auditors" /% string `Path / "disable") Auditors_disable.jsont
--> Auditors_disable.f;
post (v "wire-fee") Wire_fee.jsont --> Wire_fee.f;
post (v "global-fees") Global_fees.jsont --> Global_fees.f;
post (v "wire") Wire.jsont --> Wire.f;
post (v "wire" / "disable") Wire_disable.jsont --> Wire_disable.f;
post (v "drain") Drain.jsont --> Drain.f;
post (v "aml-officers") AmlOfficer.jsont --> AmlOfficer.f;
post (v "partners") Partners.jsont --> Partners.f;
]
in
static @ management
let () =
Util.Log_reporter.setup ();