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

rename

Browse source
This commit is contained in:
swrup 2026-02-12 12:13:30 +01:00
parent 7baba82a10
commit dad5bd9d35
6 changed files with 66 additions and 82 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/mte.ml
View file

@ -23,28 +23,28 @@ let hello req _server _env =
let routes =
let open Vif.Uri in
let open Vif.Route in
let get_ path = get (path /?? any) in
let get path = get (path /?? any) in
let post path jsont = post (Vif.Type.json_encoding jsont) (path /?? any) in
let v s = rel / s in
let tos =
let v s = rel / s in
[
get_ rel --> hello;
get_ (v "terms") --> Static.terms;
get_ (v "privacy") --> Static.privacy;
get rel --> hello;
get (v "terms") --> Http_terms.terms;
get (v "privacy") --> Http_terms.privacy;
]
in
let status_info =
[
get_ (rel / "seed") --> Http_information.seed;
get_ (rel / "config") --> Http_information.config;
get_ (rel / "keys") --> Http_information.keys;
get (v "seed") --> Http_information.seed;
get (v "config") --> Http_information.config;
get (v "keys") --> Http_information.keys;
]
in
let management =
let open Http_management in
let v s = rel / "management" / s in
let v s = v "management" / s in
[
get_ (v "keys") --> Keys_get.f;
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;