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

wip /keys

Browse source
This commit is contained in:
swrup 2025-12-14 21:34:03 +01:00
parent 13393fbe31
commit 638cccc185
2 changed files with 58 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/keys.ml Normal file
View file

@ -0,0 +1,17 @@
[@@@ocaml.warning "-27"]
open Api
let mk_keys ~sm_signkey ~sm_denom = assert false
let jsont = ExchangeKeysResponse.jsont
let f req server _env =
Logs.info (fun m -> m "GET /keys/");
let sm_signkey = Vif.Server.device Devices.secmod_signkey server in
let sm_denom = Vif.Server.device Devices.secmod_denom server in
let res =
let v = mk_keys ~sm_signkey ~sm_denom in
let s = Api.encode_exn jsont v in
Ok s
in
Respond_util.respond_with_res res req