[#10444] Fix keycard pin changing when card is not tapped

This commit is contained in:
Roman Volosovskyi 2020-04-29 09:29:24 +03:00
parent 7b6b620ceb
commit a6729ce8c5
No known key found for this signature in database
GPG Key ID: 0238A4B5ECEE70DE
1 changed files with 6 additions and 3 deletions

View File

@ -471,10 +471,13 @@
(let [on-success (or on-success (let [on-success (or on-success
(get-in db [:hardwallet :pin :on-verified])) (get-in db [:hardwallet :pin :on-verified]))
on-failure (or on-failure on-failure (or on-failure
(get-in db [:hardwallet :pin :on-verified-failure]))] (get-in db [:hardwallet :pin :on-verified-failure]))
pin-step (or pin-step
(get-in db [:hardwallet :pin :step]))]
(fx/merge (fx/merge
cofx cofx
{:db (update-in db [:hardwallet :pin] assoc {:db (update-in db [:hardwallet :pin] assoc
:step pin-step
:on-verified on-success :on-verified on-success
:on-verified-failure on-failure)} :on-verified-failure on-failure)}
(show-connection-sheet (show-connection-sheet
@ -486,5 +489,5 @@
(fx/merge (fx/merge
cofx cofx
{:db (assoc-in db [:hardwallet :pin :status] :verifying) {:db (assoc-in db [:hardwallet :pin :status] :verifying)
:hardwallet/verify-pin {:pin pin :hardwallet/verify-pin {:pin pin
:pairing pairing}})))})))) :pairing pairing}})))}))))