💄 Cosmetic changes on auth events ns.

This commit is contained in:
Andrey Antukh 2019-10-18 17:18:39 +02:00
parent dcc7b09dd8
commit 0c7fd793be

View file

@ -69,7 +69,7 @@
;; --- Logout ;; --- Logout
(def clear-user-data (def clear-user-data
(reify (ptk/reify ::clear-user-data
ptk/UpdateEvent ptk/UpdateEvent
(update [_ state] (update [_ state]
(merge state (dissoc initial-state :route :router))) (merge state (dissoc initial-state :route :router)))
@ -85,7 +85,7 @@
(i18n/set-default-locale!)))) (i18n/set-default-locale!))))
(def logout (def logout
(reify (ptk/reify ::logout
ptk/WatchEvent ptk/WatchEvent
(watch [_ state s] (watch [_ state s]
(rx/of (rt/nav :auth/login) (rx/of (rt/nav :auth/login)
@ -104,7 +104,7 @@
[data on-error] [data on-error]
(s/assert ::register-params data) (s/assert ::register-params data)
(s/assert ::us/fn on-error) (s/assert ::us/fn on-error)
(reify (ptk/reify ::register
ptk/WatchEvent ptk/WatchEvent
(watch [_ state stream] (watch [_ state stream]
(letfn [(handle-error [{payload :payload}] (letfn [(handle-error [{payload :payload}]
@ -128,7 +128,7 @@
(defn recovery-request (defn recovery-request
[data] [data]
(s/assert ::recovery-request-params data) (s/assert ::recovery-request-params data)
(reify (ptk/reify ::recover-request
ptk/WatchEvent ptk/WatchEvent
(watch [_ state stream] (watch [_ state stream]
(letfn [(on-error [{payload :payload}] (letfn [(on-error [{payload :payload}]
@ -171,7 +171,7 @@
(defn recovery (defn recovery
[{:keys [token password] :as data}] [{:keys [token password] :as data}]
(s/assert ::recovery-params data) (s/assert ::recovery-params data)
(reify (ptk/reify ::recovery
ptk/WatchEvent ptk/WatchEvent
(watch [_ state stream] (watch [_ state stream]
(letfn [(on-error [{payload :payload}] (letfn [(on-error [{payload :payload}]