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

verify MasterSignatures

Browse source
This commit is contained in:
swrup 2025-12-06 20:50:29 +01:00
parent 5001cc35c3
commit fa21837947
6 changed files with 139 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/mte.ml
View file

@ -23,12 +23,16 @@ let hello req _server _env =
let routes =
let open Vif.Uri in
let open Vif.Route in
(*let open Vif.Type in*)
let open Vif.Type in
let open Api in
let post jsont = post (json_encoding jsont) in
[
get (rel /?? nil) --> hello;
get (rel / "terms" /?? nil) --> Static.terms;
get (rel / "privacy" /?? nil) --> Static.privacy;
get (rel / "management" / "keys" /?? nil) --> Management.keys_get;
post MasterSignatures.jsont (rel / "management" / "keys" /?? nil)
--> Management.keys_post;
]
let () =