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

Browse source
This commit is contained in:
swrup 2025-12-11 17:01:49 +01:00
parent 13393fbe31
commit e2701b548c
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/mte.ml
View file

@ -26,14 +26,19 @@ let routes =
let open Vif.Type in let open Vif.Type in
let get_ path = get (path /?? nil) in let get_ path = get (path /?? nil) in
let post path jsont = post (json_encoding jsont) (path /?? nil) in let post path jsont = post (json_encoding jsont) (path /?? nil) in
let static =
let v s = rel / s in let v s = rel / s in
let static =
[ [
get_ rel --> hello; get_ rel --> hello;
get_ (v "terms") --> Static.terms; get_ (v "terms") --> Static.terms;
get_ (v "privacy") --> Static.privacy; get_ (v "privacy") --> Static.privacy;
] ]
in in
let information =
[
get_ (v "keys" /% string `Query / "") --> Information.keys;
]
in
let management = let management =
let open Management in let open Management in
let v s = rel / "management" / s in let v s = rel / "management" / s in
@ -56,7 +61,7 @@ let routes =
post (v "partners") Partners.jsont --> Partners.f; post (v "partners") Partners.jsont --> Partners.f;
] ]
in in
static @ management static @ information @ management
let () = let () =
Util.Log_reporter.setup (); Util.Log_reporter.setup ();