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.Uri in
let open Vif.Route in let open Vif.Route in
let open Vif.Type in let open Vif.Type in
[ let posts =
post any [
(*(json_encoding Api.MasterSignatures.jsont)*) (*(json_encoding Api.MasterSignatures.jsont)*)
(rel / "management" / "keys" /?? nil) post any (rel / "management" / "keys" /?? nil) --> Management.keys_post;
--> Management.keys_post; get (rel /?? nil) --> hello; ]
get (rel / "terms" /?? nil) --> Static.terms; in
get (rel / "privacy" /?? nil) --> Static.privacy; let gets =
get (rel / "management" / "keys" /?? nil) --> Management.keys; [
get (rel / "db_test" /?? nil) --> Database.test; get (rel /?? nil) --> hello; get (rel / "terms" /?? nil) --> Static.terms;
get (rel / "db_activate" /?? nil) --> Database.test_activate; 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 () =
let cfg = let cfg =