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

Browse source
This commit is contained in:
swrup 2026-01-22 03:25:54 +01:00
parent 303783e655
commit 6455cf75a9
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/mte.ml
View file

@ -26,7 +26,7 @@ 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 tos =
let v s = rel / s in let v s = rel / s in
[ [
get_ rel --> hello; get_ rel --> hello;
@ -34,6 +34,7 @@ let routes =
get_ (v "privacy") --> Static.privacy; get_ (v "privacy") --> Static.privacy;
] ]
in in
let status_info = [ get_ (rel / "keys") --> Http_keys.f ] in
let management = let management =
let open Http_management in let open Http_management in
let v s = rel / "management" / s in let v s = rel / "management" / s in
@ -56,7 +57,7 @@ let routes =
post (v "partners") Partners.jsont --> Partners.f; post (v "partners") Partners.jsont --> Partners.f;
] ]
in in
static @ management tos @ status_info @ management
let () = let () =
Util.Log_reporter.setup (); Util.Log_reporter.setup ();