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

Browse source
This commit is contained in:
swrup 2025-10-16 10:18:22 +02:00
parent b27ebea6ee
commit f2f08e13f4
2 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/management.ml Normal file
View file

@ -0,0 +1,7 @@
(* TODO *)
let keys req _server _env =
let open Vif.Response in
let open Syntax in
let* () = with_string req "keys .. \n" in
let* () = add ~field:"content-type" "application/json" in
respond `OK

1
src/mte.ml
View file

@ -112,6 +112,7 @@ let routes =
[ [
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 / "privacy" /?? nil) --> Static.privacy;
get (rel / "management" / "keys" /?? nil) --> Management.keys;
] ]
let () = let () =