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

Browse source
This commit is contained in:
swrup 2025-11-29 19:36:35 +01:00
parent ad648178ab
commit 10fc211c41
1 changed files with 16 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/mte.ml
View file

@ -108,17 +108,23 @@ let routes =
let open Vif.Uri in
let open Vif.Route in
let open Vif.Type in
[
post any
let posts =
[
(*(json_encoding Api.MasterSignatures.jsont)*)
(rel / "management" / "keys" /?? nil)
--> Management.keys_post; get (rel /?? nil) --> hello;
get (rel / "terms" /?? nil) --> Static.terms;
get (rel / "privacy" /?? nil) --> Static.privacy;
get (rel / "management" / "keys" /?? nil) --> Management.keys;
get (rel / "db_test" /?? nil) --> Database.test;
get (rel / "db_activate" /?? nil) --> Database.test_activate;
]
post any (rel / "management" / "keys" /?? nil) --> Management.keys_post;
]
in
let gets =
[
get (rel /?? nil) --> hello; get (rel / "terms" /?? nil) --> Static.terms;
get (rel / "privacy" /?? nil) --> Static.privacy;
get (rel / "management" / "keys" /?? nil) --> Management.keys;
get (rel / "db_test" /?? nil) --> Database.test;
get (rel / "db_activate" /?? nil) --> Database.test_activate;
]
in
posts @ gets
(*gets @ posts*)
let () =
let cfg =