fixed signin blinking
Signed-off-by: Andrey Shovkoplyas <motor4ik@gmail.com>
This commit is contained in:
parent
0f2aaa35e3
commit
e9cb6b01e7
|
@ -112,14 +112,14 @@
|
|||
success (zero? (count error))
|
||||
db' (assoc-in db [:accounts/login :processing] false)]
|
||||
(if success
|
||||
{:db db'
|
||||
{:db db
|
||||
::clear-web-data nil
|
||||
::change-account [address]}
|
||||
{:db (assoc-in db' [:accounts/login :error] error)}))))
|
||||
|
||||
(register-handler-fx
|
||||
:change-account-handler
|
||||
(fn [{{:keys [accounts/accounts view-id] :as db} :db} [_ error address]]
|
||||
(fn [{{:keys [view-id] :as db} :db} [_ error address]]
|
||||
(if (nil? error)
|
||||
{:db (cond-> (dissoc db :accounts/login)
|
||||
(= view-id :create-account)
|
||||
|
|
Loading…
Reference in New Issue