Ask PN permissions on iOS when account recovered
Signed-off-by: Julien Eluard <julien.eluard@gmail.com>
This commit is contained in:
parent
a9e640a55d
commit
fd77796cba
|
@ -128,13 +128,13 @@
|
|||
(fn [{{:accounts/keys [create] :as db} :db :as cofx} _]
|
||||
(handlers-macro/merge-fx cofx
|
||||
{:db db
|
||||
:dispatch [:navigate-to-clean :usage-data [:account-finalized]]}
|
||||
:dispatch [:navigate-to-clean :usage-data [:account-finalized true]]}
|
||||
(accounts.utils/account-update {:name (:name create)}))))
|
||||
|
||||
(handlers/register-handler-fx
|
||||
:account-finalized
|
||||
(fn [{db :db} _]
|
||||
{:db (assoc db :accounts/create {:show-welcome? true})
|
||||
(fn [{db :db} [_ show-welcome?]]
|
||||
{:db (assoc db :accounts/create {:show-welcome? show-welcome?})
|
||||
:dispatch-n [[:navigate-to-clean :home]
|
||||
[:request-notifications]]}))
|
||||
|
||||
|
|
|
@ -45,7 +45,7 @@
|
|||
(-> db
|
||||
(accounts-events/add-account account)
|
||||
(assoc :dispatch [:login-account address password])
|
||||
(assoc :dispatch-later [{:ms 2000 :dispatch [:navigate-to :usage-data]}]))))))
|
||||
(assoc :dispatch-later [{:ms 2000 :dispatch [:navigate-to :usage-data [:account-finalized false]]}]))))))
|
||||
|
||||
(handlers/register-handler-fx
|
||||
:recover-account
|
||||
|
|
Loading…
Reference in New Issue