wip /management

src/management.ml

@@ -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

src/mte.ml

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