[#10275] Can't finish card setup if creating card flow is canceled on PUK / Pairing code screen
This commit is contained in:
parent
8b4bc0290a
commit
8b9a245f54
|
@ -468,6 +468,10 @@
|
|||
(fx/defn verify-pin
|
||||
{:events [:hardwallet/verify-pin]}
|
||||
[{:keys [db] :as cofx} {:keys [pin-step on-card-connected on-failure on-success]}]
|
||||
(let [on-success (or on-success
|
||||
(get-in db [:hardwallet :pin :on-verified]))
|
||||
on-failure (or on-failure
|
||||
(get-in db [:hardwallet :pin :on-verified-failure]))]
|
||||
(fx/merge
|
||||
cofx
|
||||
{:db (update-in db [:hardwallet :pin] assoc
|
||||
|
@ -483,4 +487,4 @@
|
|||
cofx
|
||||
{:db (assoc-in db [:hardwallet :pin :status] :verifying)
|
||||
:hardwallet/verify-pin {:pin pin
|
||||
:pairing pairing}})))})))
|
||||
:pairing pairing}})))}))))
|
||||
|
|
|
@ -287,7 +287,8 @@
|
|||
pin (get-in db [:hardwallet :pin enter-step])
|
||||
numbers-entered (count pin)]
|
||||
(log/debug "[hardwallet] process-pin-input"
|
||||
"enter-step" enter-step)
|
||||
"enter-step" enter-step
|
||||
"numbers-entered" numbers-entered)
|
||||
(cond-> {:db (assoc-in db [:hardwallet :pin :status] nil)}
|
||||
|
||||
(and (= enter-step :login)
|
||||
|
@ -309,7 +310,7 @@
|
|||
|
||||
(and (= enter-step :current)
|
||||
(= pin-code-length numbers-entered))
|
||||
(common/verify-pin :current)
|
||||
(common/verify-pin {:pin-step :current})
|
||||
|
||||
(and (= enter-step :export-key)
|
||||
(= pin-code-length numbers-entered))
|
||||
|
|
|
@ -237,7 +237,6 @@
|
|||
enter-step [:hardwallet/pin-enter-step]
|
||||
status [:hardwallet/pin-status]
|
||||
error-label [:hardwallet/pin-error-label]
|
||||
multiple-multiaccounts? [:multiple-multiaccounts?]
|
||||
{:keys [key-uid name] :as account} [:multiaccounts/login]
|
||||
small-screen? [:dimensions/small-screen?]
|
||||
retry-counter [:hardwallet/retry-counter]]
|
||||
|
|
Loading…
Reference in New Issue