swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add Json.FutureKeysResponse

Browse source
This commit is contained in:
swrup 2025-10-18 20:12:51 +02:00
parent 13b797f68a
commit 1674e338ac
2 changed files with 36 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/management.ml
View file

@ -113,9 +113,10 @@ let keys req server _env =
let online_key = Vif.Server.device Devices.online_key server in
let denom_key = Vif.Server.device Devices.denom_key server in
let denominations = Vif.Server.device Devices.denominations server in
let _v =
let v =
mk_future_keys_response ~signkey ~online_key ~denom_key ~denominations
in
let* () = with_string req "keys .. \n" in
let s = Json.encode_exn Json.FutureKeysResponse.jsont v in
let* () = with_string req s in
let* () = add ~field:"content-type" "application/json" in
respond `OK