111 lines
3.1 KiB
OCaml
111 lines
3.1 KiB
OCaml
[@@@ocaml.warning "-26-27"]
|
|
|
|
open Syntax
|
|
open Api
|
|
module String_map = Stdlib.Map.Make (Stdlib.String)
|
|
|
|
let mk_keys ~db_conn ~sm ~last_issue_date =
|
|
let version = "0" in
|
|
let base_url = Config.base_url in
|
|
let currency = Config.currency in
|
|
let shopping_url = Config.shopping_url in
|
|
let open_banking_gateway = Config.open_banking_gateway_url in
|
|
let bank_compliance_language = Config.bank_compliance_language in
|
|
let currency_specification =
|
|
let v = Config.Currency.v in
|
|
let alt_unit_names =
|
|
Parse_config.Alt_unit_names.to_json_string v.alt_unit_names
|
|
in
|
|
CurrencySpecification.
|
|
{
|
|
name= v.name;
|
|
num_fractional_input_digits= v.fractional_input_digits;
|
|
num_fractional_normal_digits= v.fractional_normal_digits;
|
|
num_fractional_trailing_zero_digits= v.fractional_trailing_zero_digits;
|
|
alt_unit_names;
|
|
common_amounts= [];
|
|
}
|
|
in
|
|
let tiny_amount = Config.tiny_amount in
|
|
let stefan_abs = Config.stefan_abs in
|
|
let stefan_log = Config.stefan_log in
|
|
let stefan_lin = Config.stefan_lin in
|
|
(* todo asset_type
|
|
Type of the asset. "fiat", "crypto", "regional" or "stock". *)
|
|
let asset_type = "xxx" in
|
|
let* accounts = Pg.get_wire_accounts db_conn |> unwrap_err_caqti in
|
|
let* wire_fees =
|
|
(* todo
|
|
where does wire_methods comes from? *)
|
|
let wire_method = "xxx" in
|
|
let+ wire_fees =
|
|
Pg.get_wire_fees db_conn ~wire_method |> unwrap_err_caqti
|
|
in
|
|
String_map.singleton wire_method wire_fees
|
|
in
|
|
let wads =
|
|
(* TODO wads *)
|
|
[]
|
|
in
|
|
let rewards_allowed = false in
|
|
let kyc_enabled = false in
|
|
let disable_direct_deposit = (* todo *) false in
|
|
let master_public_key = Config.master_public_key in
|
|
let reserve_closing_delay = Config.Exchangedb.idle_reserve_expiration_time in
|
|
(* todo *)
|
|
let wallet_balance_limit_without_kyc = None in
|
|
let hard_limits = [] in
|
|
let zero_limits = [] in
|
|
(*
|
|
{
|
|
version;
|
|
base_url;
|
|
currency;
|
|
shopping_url;
|
|
open_banking_gateway;
|
|
bank_compliance_language;
|
|
currency_specification;
|
|
tiny_amount;
|
|
stefan_abs;
|
|
stefan_log;
|
|
stefan_lin;
|
|
asset_type;
|
|
accounts;
|
|
wire_fees;
|
|
wads;
|
|
rewards_allowed;
|
|
kyc_enabled;
|
|
disable_direct_deposit;
|
|
master_public_key;
|
|
reserve_closing_delay;
|
|
wallet_balance_limit_without_kyc;
|
|
hard_limits;
|
|
zero_limits;
|
|
denominations;
|
|
exchange_sig;
|
|
exchange_pub;
|
|
recoup;
|
|
global_fees;
|
|
list_issue_date;
|
|
auditors;
|
|
signkeys;
|
|
extensions;
|
|
extensions_sig;
|
|
}
|
|
*)
|
|
assert false
|
|
|
|
let jsont = ExchangeKeysResponse.jsont
|
|
|
|
(* TODO query param ?last_issue_date *)
|
|
let f req server _env =
|
|
Logs.info (fun m -> m "GET /keys/");
|
|
let db_conn = Vif.Server.device Devices.db_connection server in
|
|
let sm = Vif.Server.device Devices.secmod server in
|
|
let res =
|
|
let last_issue_date = Ptime_clock.now () |> Option.some in
|
|
let* v = mk_keys ~db_conn ~sm ~last_issue_date in
|
|
let s = Api.encode_exn jsont v in
|
|
Ok s
|
|
in
|
|
Respond_util.respond_with_res res req
|