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-29 19:36:35 +01:00
parent ad648178ab
commit a64e073dbe
2 changed files with 5 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/management.ml
View file

@ -99,7 +99,7 @@ let mk_future_keys_response (secmod_signkey : Secmod_signkey.t)
signkey_secmod_public_key;
}
let keys req server _env =
let keys_get req server _env =
let open Vif.Response in
let open Syntax in
let secmod_signkey = Vif.Server.device Devices.secmod_signkey server in
@ -113,6 +113,6 @@ let keys req server _env =
let keys_post req _server _env =
let open Vif.Response in
let open Syntax in
let* () = with_string req "todo~~" in
let* () = with_string req {||} in
let* () = add ~field:"content-type" "application/json" in
respond `OK

11
src/mte.ml
View file

@ -109,15 +109,10 @@ let routes =
let open Vif.Route in
let open Vif.Type in
[
post any
(*(json_encoding Api.MasterSignatures.jsont)*)
(rel / "management" / "keys" /?? nil)
--> Management.keys_post; get (rel /?? nil) --> hello;
get (rel / "terms" /?? nil) --> Static.terms;
get (rel /?? nil) --> hello; get (rel / "terms" /?? nil) --> Static.terms;
get (rel / "privacy" /?? nil) --> Static.privacy;
get (rel / "management" / "keys" /?? nil) --> Management.keys;
get (rel / "db_test" /?? nil) --> Database.test;
get (rel / "db_activate" /?? nil) --> Database.test_activate;
get (rel / "management" / "keys" /?? nil) --> Management.keys_get;
post any (rel / "management" / "keys" /?? nil) --> Management.keys_post;
]
let () =