more management

src/devices.ml

@@ -8,4 +8,4 @@ let denominations =
   let rsa_l = List.map Denom.make Config.coins in
   rsa_l
 
-let v = Vif.Devices.[ signkey; exchange_key; denom_key; denominations ]
+let l = Vif.Devices.[ signkey; exchange_key; denom_key; denominations ]

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,14 @@ let mk_future_sign_key signkey_signf
       signkey_secmod_sig;
     }
 
+(*let mk_future_keys_response*)
+
 let keys req _server _env =
   let open Vif.Response in
   let open Syntax in
+  let _signkey, _exchange_key, _denom_key =
+    Devices.(signkey, exchange_key, denom_key)
+  in
   let* () = with_string req "keys .. \n" in
   let* () = add ~field:"content-type" "application/json" in
   respond `OK

src/mte.ml

@@ -123,5 +123,6 @@ let () =
   in
   Miou_unix.run @@ fun () ->
   let env = () in
+  let devices = Devices.l in
   let middlewares = Vif.Middlewares.[] in
-  Vif.run ~cfg ~devices:Devices.v ~middlewares routes env
+  Vif.run ~cfg ~devices ~middlewares routes env