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-12 13:01:45 +01:00
parent e8876b14bc
commit 1fbee4ea03
1 changed files with 10 additions and 10 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 routes =
let open Vif.Uri in let open Vif.Uri in
let open Vif.Route 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 post path jsont = post (Vif.Type.json_encoding jsont) (path /?? any) in
let tos =
let v s = rel / s in let v s = rel / s in
let tos =
[ [
get_ rel --> hello; get rel --> hello;
get_ (v "terms") --> Http_terms.terms; get (v "terms") --> Http_terms.terms;
get_ (v "privacy") --> Http_terms.privacy; get (v "privacy") --> Http_terms.privacy;
] ]
in in
let status_info = let status_info =
[ [
get_ (rel / "seed") --> Http_information.seed; get (v "seed") --> Http_information.seed;
get_ (rel / "config") --> Http_information.config; get (v "config") --> Http_information.config;
get_ (rel / "keys") --> Http_information.keys; get (v "keys") --> Http_information.keys;
] ]
in in
let management = let management =
let open Http_management in 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 "keys") Keys_post.jsont --> Keys_post.f;
post (v "denominations" /% string `Path / "revoke") Denom_revoke.jsont post (v "denominations" /% string `Path / "revoke") Denom_revoke.jsont
--> Denom_revoke.f; --> Denom_revoke.f;