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

add handler.ml

Browse source
This commit is contained in:
swrup 2025-12-07 17:10:32 +01:00
parent 699e46c003
commit bcb9015c34
3 changed files with 60 additions and 63 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/mte.ml
View file

@ -27,13 +27,13 @@ let routes =
let get_ path = get (path /?? nil) in
let post path jsont = post (json_encoding jsont) (path /?? nil) in
let v s = rel / s in
let open Handler in
[
get_ rel --> hello;
get_ (v "terms") --> Static.terms;
get_ (v "privacy") --> Static.privacy;
get_ (v "management" / "keys") --> Management.keys_get;
post (v "management" / "keys") Management.keys_post_jsont
--> Management.keys_post;
get_ (v "management" / "keys") --> keys_get;
post (v "management" / "keys") keys_post_jsont --> keys_post;
]
let () =