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} _]
|
(fn [{{:accounts/keys [create] :as db} :db :as cofx} _]
|
||||||
(handlers-macro/merge-fx cofx
|
(handlers-macro/merge-fx cofx
|
||||||
{:db db
|
{: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)}))))
|
(accounts.utils/account-update {:name (:name create)}))))
|
||||||
|
|
||||||
(handlers/register-handler-fx
|
(handlers/register-handler-fx
|
||||||
:account-finalized
|
:account-finalized
|
||||||
(fn [{db :db} _]
|
(fn [{db :db} [_ show-welcome?]]
|
||||||
{:db (assoc db :accounts/create {:show-welcome? true})
|
{:db (assoc db :accounts/create {:show-welcome? show-welcome?})
|
||||||
:dispatch-n [[:navigate-to-clean :home]
|
:dispatch-n [[:navigate-to-clean :home]
|
||||||
[:request-notifications]]}))
|
[:request-notifications]]}))
|
||||||
|
|
||||||
|
|
|
@ -45,7 +45,7 @@
|
||||||
(-> db
|
(-> db
|
||||||
(accounts-events/add-account account)
|
(accounts-events/add-account account)
|
||||||
(assoc :dispatch [:login-account address password])
|
(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
|
(handlers/register-handler-fx
|
||||||
:recover-account
|
:recover-account
|
||||||
|
|
Loading…
Reference in New Issue