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-30 15:21:56 +01:00
parent 16819f83da
commit 5de86957a6
1 changed files with 6 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/mte.ml
View file

@ -24,18 +24,15 @@ 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
(* just for alignement *)
let get_ = get in
let post = Fun.flip post in
[ [
get_ (rel /?? nil) --> hello; get (rel /?? nil) --> hello;
get_ (rel / "terms" /?? nil) --> Static.terms; get (rel / "terms" /?? nil) --> Static.terms;
get_ (rel / "privacy" /?? nil) --> Static.privacy; get (rel / "privacy" /?? nil) --> Static.privacy;
get_ (rel / "test" /?? nil) --> Database.test_activate; get (rel / "test" /?? nil) --> Database.test_activate;
get_ (rel / "management" / "keys" /?? nil) --> Management.keys_get; get (rel / "management" / "keys" /?? nil) --> Management.keys_get;
post post
(rel / "management" / "keys" /?? nil)
(json_encoding Management.foo_jsont) (json_encoding Management.foo_jsont)
(rel / "management" / "keys" /?? nil)
--> Management.keys_post; --> Management.keys_post;
] ]