[@@@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