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-18 18:19:09 +02:00
parent 85ddb8194f
commit 5e0650c1cc
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/management.ml
View file

@ -64,7 +64,7 @@ let mk_future_denom denom_key_signf
denom_secmod_sig; 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) = ({ pub; sign= _; stamp_start; stamp_expire; stamp_end } : Secmod_keys.t) =
let signkey_secmod_sig = let signkey_secmod_sig =
let open Binary_formats in let open Binary_formats in
@ -92,9 +92,13 @@ let mk_future_sign_key signkey_signf
signkey_secmod_sig; signkey_secmod_sig;
} }
let keys req _server _env = let keys req server _env =
let open Vif.Response in let open Vif.Response in
let open Syntax 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* () = with_string req "keys .. \n" in
let* () = add ~field:"content-type" "application/json" in let* () = add ~field:"content-type" "application/json" in
respond `OK respond `OK