chore: clean up wallet reframe root keys (#18730)
This commit is contained in:
parent
f762cdcf9b
commit
83523b1923
|
@ -148,12 +148,12 @@
|
||||||
(rf/defn scan-address-success
|
(rf/defn scan-address-success
|
||||||
{:events [:wallet/scan-address-success]}
|
{:events [:wallet/scan-address-success]}
|
||||||
[{:keys [db]} address]
|
[{:keys [db]} address]
|
||||||
{:db (assoc db :wallet/scanned-address address)})
|
{:db (assoc-in db [:wallet :ui :scanned-address] address)})
|
||||||
|
|
||||||
(rf/defn clean-scanned-address
|
(rf/defn clean-scanned-address
|
||||||
{:events [:wallet/clean-scanned-address]}
|
{:events [:wallet/clean-scanned-address]}
|
||||||
[{:keys [db]}]
|
[{:keys [db]}]
|
||||||
{:db (dissoc db :wallet/scanned-address :wallet/send-address)})
|
{:db (update-in db [:wallet :ui] dissoc :scanned-address)})
|
||||||
|
|
||||||
(rf/reg-event-fx :wallet/create-derived-addresses
|
(rf/reg-event-fx :wallet/create-derived-addresses
|
||||||
(fn [{:keys [db]} [{:keys [sha3-pwd path]} on-success]]
|
(fn [{:keys [db]} [{:keys [sha3-pwd path]} on-success]]
|
||||||
|
|
|
@ -10,15 +10,16 @@
|
||||||
(deftest scan-address-success
|
(deftest scan-address-success
|
||||||
(let [db {}]
|
(let [db {}]
|
||||||
(testing "scan-address-success"
|
(testing "scan-address-success"
|
||||||
(let [expected-db {:wallet/scanned-address address}
|
(let [expected-db {:wallet {:ui {:scanned-address address}}}
|
||||||
effects (events/scan-address-success {:db db} address)
|
effects (events/scan-address-success {:db db} address)
|
||||||
result-db (:db effects)]
|
result-db (:db effects)]
|
||||||
(is (match? result-db expected-db))))))
|
(is (match? result-db expected-db))))))
|
||||||
|
|
||||||
(deftest clean-scanned-address
|
(deftest clean-scanned-address
|
||||||
(let [db {:wallet/scanned-address address}]
|
(let [db {:wallet {:ui {:scanned-address address}}}]
|
||||||
(testing "clean-scanned-address"
|
(testing "clean-scanned-address"
|
||||||
(let [expected-db {:wallet {:ui {:send nil}}}
|
(let [expected-db {:wallet {:ui {:send nil
|
||||||
|
:scanned-address nil}}}
|
||||||
effects (events/clean-scanned-address {:db db})
|
effects (events/clean-scanned-address {:db db})
|
||||||
result-db (:db effects)]
|
result-db (:db effects)]
|
||||||
(is (match? result-db expected-db))))))
|
(is (match? result-db expected-db))))))
|
||||||
|
|
|
@ -156,8 +156,6 @@
|
||||||
|
|
||||||
;;wallet
|
;;wallet
|
||||||
(reg-root-key-sub :wallet :wallet)
|
(reg-root-key-sub :wallet :wallet)
|
||||||
(reg-root-key-sub :wallet/scanned-address :wallet/scanned-address)
|
|
||||||
(reg-root-key-sub :wallet/create-account :wallet/create-account)
|
|
||||||
(reg-root-key-sub :wallet/local-suggestions :wallet/local-suggestions)
|
(reg-root-key-sub :wallet/local-suggestions :wallet/local-suggestions)
|
||||||
(reg-root-key-sub :wallet/valid-ens-or-address? :wallet/valid-ens-or-address?)
|
(reg-root-key-sub :wallet/valid-ens-or-address? :wallet/valid-ens-or-address?)
|
||||||
|
|
||||||
|
|
|
@ -28,6 +28,11 @@
|
||||||
:<- [:wallet]
|
:<- [:wallet]
|
||||||
:-> :ui)
|
:-> :ui)
|
||||||
|
|
||||||
|
(rf/reg-sub
|
||||||
|
:wallet/scanned-address
|
||||||
|
:<- [:wallet/ui]
|
||||||
|
:-> :scanned-address)
|
||||||
|
|
||||||
(rf/reg-sub
|
(rf/reg-sub
|
||||||
:wallet/tokens-loading?
|
:wallet/tokens-loading?
|
||||||
:<- [:wallet/ui]
|
:<- [:wallet/ui]
|
||||||
|
|
Loading…
Reference in New Issue