status-im/status-react
2
0
Fork 0
mirror of https://github.com/status-im/status-react.git synced 2025-03-01 02:50:50 +00:00
Code Issues Projects Releases Wiki Activity

[#9280] Add retries on error when fetching balances

Browse Source
This commit is contained in:
Roman Volosovskyi 2020-01-24 16:10:58 +02:00
parent 5a64745fce
commit ea02f8e3cf
No known key found for this signature in database
GPG Key ID: 0238A4B5ECEE70DE
1 changed files with 44 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
src/status_im/wallet/core.cljs
View File

@ -27,22 +27,29 @@
[status-im.ethereum.stateofus :as stateofus]
[status-im.ui.components.bottom-sheet.core :as bottom-sheet]))
(re-frame/reg-fx
:wallet/get-balance
(fn [{:keys [account-address on-success on-error]}]
(defn get-balance
[{:keys [address on-success on-error number-of-retries]
:as params
:or {number-of-retries 4}}]
(log/debug "[wallet] get-balance"
"address" address
"number-of-retries" number-of-retries)
(json-rpc/call
{:method "eth_getBalance"
:params [account-address "latest"]
:params [address "latest"]
:on-success on-success
:on-error on-error})))
:on-error (fn [error]
(if (zero? number-of-retries)
(on-error error)
(get-balance
(update params :number-of-retries dec))))}))
(re-frame/reg-fx
:wallet/get-balances
(fn [addresses]
(doseq [address addresses]
(json-rpc/call
{:method "eth_getBalance"
:params [address "latest"]
(get-balance
{:address address
:on-success #(re-frame/dispatch [::update-balance-success address %])
:on-error #(re-frame/dispatch [::update-balance-fail %])}))))
@ -175,9 +182,13 @@
(when (not-empty balances)
balances)))
(re-frame/reg-fx
:wallet/get-tokens-balances
(fn [{:keys [addresses tokens init? assets]}]
(defn get-token-balances
[{:keys [addresses tokens init? assets number-of-retries]
:as params
:or {number-of-retries 4}}]
(log/debug "[wallet] get-token-balances"
"addresses" addresses
"number-of-retries" number-of-retries)
(json-rpc/call
{:method "wallet_getTokensBalances"
:params [addresses (keys tokens)]
@ -189,7 +200,15 @@
;; assets we make an initialization round
[::tokens-found balances]
[::update-tokens-balances-success balances]))))
:on-error #(re-frame/dispatch [::update-token-balance-fail %])})))
:on-error
(fn [error]
(if (zero? number-of-retries)
(re-frame/dispatch [::update-token-balance-fail error])
(get-token-balances (update params :number-of-retries dec))))}))
(re-frame/reg-fx
:wallet/get-tokens-balances
get-token-balances)
(defn clear-error-message [db error-type]
(update-in db [:wallet :errors] dissoc error-type))