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

mv json.ml api.ml

Browse source
This commit is contained in:
swrup 2025-11-21 19:16:31 +01:00
parent 2968339c6d
commit 9fe1d76dc4
4 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/management.ml
View file

@ -1,4 +1,4 @@
open Json
open Api
open Devices
let mk_future_denom denom_key_signf
@ -114,7 +114,7 @@ let keys req server _env =
let secmod_signkey = Vif.Server.device Devices.secmod_signkey server in
let secmod_denom = Vif.Server.device Devices.secmod_denom server in
let v = mk_future_keys_response secmod_signkey secmod_denom in
let s = Json.encode_exn Json.FutureKeysResponse.jsont v in
let s = Api.encode_exn Api.FutureKeysResponse.jsont v in
let* () = with_string req s in
let* () = add ~field:"content-type" "application/json" in
respond `OK