From b0fd15016dacd31793a8bd248002674b0385264c Mon Sep 17 00:00:00 2001 From: swrup Date: Fri, 27 Feb 2026 00:33:29 +0100 Subject: [PATCH] rm deprecated --- src/api.ml | 14 +++++--------- src/http_info.ml | 2 -- 2 files changed, 5 insertions(+), 11 deletions(-) diff --git a/src/api.ml b/src/api.ml index 821aac27..d13caada 100644 --- a/src/api.ml +++ b/src/api.ml @@ -1266,7 +1266,6 @@ module ExchangeKeysResponse = struct accounts: ExchangeWireAccount.t list; wire_fees: AggregateTransferFee.t list Stdlib.Map.Make(Stdlib.String).t; wads: ExchangePartnerListEntry.t list; - rewards_allowed: bool; kyc_enabled: bool; disable_direct_deposit: bool; master_public_key: EddsaPublicKey.t; @@ -1292,11 +1291,11 @@ module ExchangeKeysResponse = struct let jsont = let make 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 = + stefan_log stefan_lin asset_type accounts wire_fees wads 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 = { version; base_url; @@ -1313,7 +1312,6 @@ module ExchangeKeysResponse = struct accounts; wire_fees; wads; - rewards_allowed; kyc_enabled; disable_direct_deposit; master_public_key; @@ -1349,7 +1347,6 @@ module ExchangeKeysResponse = struct let accounts v = v.accounts in let wire_fees v = v.wire_fees in let wads v = v.wads in - let rewards_allowed v = v.rewards_allowed in let kyc_enabled v = v.kyc_enabled in let disable_direct_deposit v = v.disable_direct_deposit 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)) ~enc:wire_fees |> 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 "disable_direct_deposit" Jsont.bool ~enc:disable_direct_deposit |> mem "master_public_key" EddsaPublicKey.jsont ~enc:master_public_key diff --git a/src/http_info.ml b/src/http_info.ml index a8793388..68dd0519 100644 --- a/src/http_info.ml +++ b/src/http_info.ml @@ -44,7 +44,6 @@ let mk_keys ~db_conn (module Keys : Keys.S) ~last_issue_date = String_map.singleton wire_method wire_fees in let wads = [] in - let rewards_allowed = false in let kyc_enabled = false in let disable_direct_deposit = false 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; wire_fees; wads; - rewards_allowed; kyc_enabled; disable_direct_deposit; master_public_key;