fixed signin blinking

Signed-off-by: Andrey Shovkoplyas <motor4ik@gmail.com>
This commit is contained in:
Andrey Shovkoplyas 2018-05-16 12:19:30 +03:00
parent 0f2aaa35e3
commit e9cb6b01e7
No known key found for this signature in database
GPG Key ID: EAAB7C8622D860A4
1 changed files with 2 additions and 2 deletions

View File

@ -112,14 +112,14 @@
success (zero? (count error)) success (zero? (count error))
db' (assoc-in db [:accounts/login :processing] false)] db' (assoc-in db [:accounts/login :processing] false)]
(if success (if success
{:db db' {:db db
::clear-web-data nil ::clear-web-data nil
::change-account [address]} ::change-account [address]}
{:db (assoc-in db' [:accounts/login :error] error)})))) {:db (assoc-in db' [:accounts/login :error] error)}))))
(register-handler-fx (register-handler-fx
:change-account-handler :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) (if (nil? error)
{:db (cond-> (dissoc db :accounts/login) {:db (cond-> (dissoc db :accounts/login)
(= view-id :create-account) (= view-id :create-account)