From 8b92b819460c8600bf4e8ddfe6afd30d9ce0cbb7 Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Sat, 18 Oct 2025 18:19:09 +0200
Subject: [PATCH] more management

---
 src/management.ml | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/src/management.ml b/src/management.ml
index 2f34a260..584ed551 100644
--- a/src/management.ml
+++ b/src/management.ml
@@ -1,13 +1,6 @@
 (*open Types*)
 open Api_types
 
-(* TODO
-   - take secmod devices as param
-   - hash stuff
-     what is the hash algorithm
-     is it hash'ed then base32'ed in xxxP?
-   ... *)
-
 let mk_future_denom denom_key_signf
     ({
        section_name;
@@ -64,7 +57,7 @@ let mk_future_denom denom_key_signf
       denom_secmod_sig;
     }
 
-let mk_future_sign_key signkey_signf
+let mk_future_signkey signkey_signf
     ({ pub; sign= _; stamp_start; stamp_expire; stamp_end } : Secmod_keys.t) =
   let signkey_secmod_sig =
     let open Binary_formats in
@@ -92,9 +85,13 @@ let mk_future_sign_key signkey_signf
       signkey_secmod_sig;
     }
 
-let keys req _server _env =
+let keys req server _env =
   let open Vif.Response in
   let open Syntax in
+  let _signkey = Vif.Server.device Devices.signkey server in
+  let _exchange_key = Vif.Server.device Devices.exchange_key server in
+  let _denom_key = Vif.Server.device Devices.denom_key server in
+  let _denominations = Vif.Server.device Devices.denominations server in
   let* () = with_string req "keys .. \n" in
   let* () = add ~field:"content-type" "application/json" in
   respond `OK