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

wip post json

Browse source
This commit is contained in:
swrup 2025-11-30 14:23:55 +01:00
parent cf4da6b382
commit 5128d72865
2 changed files with 32 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/mte.ml
View file

@ -24,16 +24,16 @@ let routes =
let open Vif.Uri in
let open Vif.Route in
let open Vif.Type in
(* just for alignement *)
let get_ = get in
let post = Fun.flip post in
[
get_ (rel /?? nil) --> hello;
get_ (rel / "terms" /?? nil) --> Static.terms;
get_ (rel / "privacy" /?? nil) --> Static.privacy;
get_ (rel / "test" /?? nil) --> Database.test_activate;
get_ (rel / "management" / "keys" /?? nil) --> Management.keys_get;
post (rel / "management" / "keys" /?? nil) any --> Management.keys_post;
get (rel /?? nil) --> hello;
get (rel / "terms" /?? nil) --> Static.terms;
get (rel / "privacy" /?? nil) --> Static.privacy;
get (rel / "test" /?? nil) --> Database.test_activate;
get (rel / "management" / "keys" /?? nil) --> Management.keys_get;
post
(json_encoding Management.foo_jsont)
(rel / "management" / "keys" /?? nil)
--> Management.keys_post;
]
let () =