From a64e073dbe1d8c3a8af851e0f4d187f3fed9fa11 Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Sat, 29 Nov 2025 19:36:35 +0100
Subject: [PATCH]

---
 src/management.ml |  4 ++--
 src/mte.ml        | 11 +++--------
 2 files changed, 5 insertions(+), 10 deletions(-)

diff --git a/src/management.ml b/src/management.ml
index e1adf406..7e21f511 100644
--- a/src/management.ml
+++ b/src/management.ml
@@ -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
diff --git a/src/mte.ml b/src/mte.ml
index 6283a4fd..b7b46b8a 100644
--- a/src/mte.ml
+++ b/src/mte.ml
@@ -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 () =