18 lines
473 B
OCaml
18 lines
473 B
OCaml
|
[@@@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
|