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

Browse source
This commit is contained in:
swrup 2026-02-27 00:33:29 +01:00
parent d9cea19add
commit 1c249c9856
2 changed files with 5 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/api.ml
View file

@ -1266,7 +1266,6 @@ module ExchangeKeysResponse = struct
accounts: ExchangeWireAccount.t list; accounts: ExchangeWireAccount.t list;
wire_fees: AggregateTransferFee.t list Stdlib.Map.Make(Stdlib.String).t; wire_fees: AggregateTransferFee.t list Stdlib.Map.Make(Stdlib.String).t;
wads: ExchangePartnerListEntry.t list; wads: ExchangePartnerListEntry.t list;
rewards_allowed: bool;
kyc_enabled: bool; kyc_enabled: bool;
disable_direct_deposit: bool; disable_direct_deposit: bool;
master_public_key: EddsaPublicKey.t; master_public_key: EddsaPublicKey.t;
@ -1292,11 +1291,11 @@ module ExchangeKeysResponse = struct
let jsont = let jsont =
let make version base_url currency shopping_url open_banking_gateway let make version base_url currency shopping_url open_banking_gateway
bank_compliance_language currency_specification tiny_amount stefan_abs bank_compliance_language currency_specification tiny_amount stefan_abs
stefan_log stefan_lin asset_type accounts wire_fees wads rewards_allowed stefan_log stefan_lin asset_type accounts wire_fees wads kyc_enabled
kyc_enabled disable_direct_deposit master_public_key disable_direct_deposit master_public_key reserve_closing_delay
reserve_closing_delay wallet_balance_limit_without_kyc hard_limits wallet_balance_limit_without_kyc hard_limits zero_limits denominations
zero_limits denominations exchange_sig exchange_pub recoup global_fees exchange_sig exchange_pub recoup global_fees list_issue_date auditors
list_issue_date auditors signkeys extensions extensions_sig = signkeys extensions extensions_sig =
{ {
version; version;
base_url; base_url;
@ -1313,7 +1312,6 @@ module ExchangeKeysResponse = struct
accounts; accounts;
wire_fees; wire_fees;
wads; wads;
rewards_allowed;
kyc_enabled; kyc_enabled;
disable_direct_deposit; disable_direct_deposit;
master_public_key; master_public_key;
@ -1349,7 +1347,6 @@ module ExchangeKeysResponse = struct
let accounts v = v.accounts in let accounts v = v.accounts in
let wire_fees v = v.wire_fees in let wire_fees v = v.wire_fees in
let wads v = v.wads in let wads v = v.wads in
let rewards_allowed v = v.rewards_allowed in
let kyc_enabled v = v.kyc_enabled in let kyc_enabled v = v.kyc_enabled in
let disable_direct_deposit v = v.disable_direct_deposit in let disable_direct_deposit v = v.disable_direct_deposit in
let master_public_key v = v.master_public_key in let master_public_key v = v.master_public_key in
@ -1389,7 +1386,6 @@ module ExchangeKeysResponse = struct
(Jsont.Object.as_string_map (Jsont.list AggregateTransferFee.jsont)) (Jsont.Object.as_string_map (Jsont.list AggregateTransferFee.jsont))
~enc:wire_fees ~enc:wire_fees
|> mem "wads" (Jsont.list ExchangePartnerListEntry.jsont) ~enc:wads |> mem "wads" (Jsont.list ExchangePartnerListEntry.jsont) ~enc:wads
|> mem "rewards_allowed" Jsont.bool ~enc:rewards_allowed
|> mem "kyc_enabled" Jsont.bool ~enc:kyc_enabled |> mem "kyc_enabled" Jsont.bool ~enc:kyc_enabled
|> mem "disable_direct_deposit" Jsont.bool ~enc:disable_direct_deposit |> mem "disable_direct_deposit" Jsont.bool ~enc:disable_direct_deposit
|> mem "master_public_key" EddsaPublicKey.jsont ~enc:master_public_key |> mem "master_public_key" EddsaPublicKey.jsont ~enc:master_public_key

2
src/http_info.ml
View file

@ -44,7 +44,6 @@ let mk_keys ~db_conn (module Keys : Keys.S) ~last_issue_date =
String_map.singleton wire_method wire_fees String_map.singleton wire_method wire_fees
in in
let wads = [] in let wads = [] in
let rewards_allowed = false in
let kyc_enabled = false in let kyc_enabled = false in
let disable_direct_deposit = false in let disable_direct_deposit = false in
let master_public_key = Config.master_public_key in let master_public_key = Config.master_public_key in
@ -138,7 +137,6 @@ let mk_keys ~db_conn (module Keys : Keys.S) ~last_issue_date =
accounts; accounts;
wire_fees; wire_fees;
wads; wads;
rewards_allowed;
kyc_enabled; kyc_enabled;
disable_direct_deposit; disable_direct_deposit;
master_public_key; master_public_key;