3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-07 14:38:33 +02:00
Code Issues Projects Releases Packages Wiki Activity

Don't fetch profile and projects if authentication is failed.

Browse source
This commit is contained in:
Andrey Antukh 2016-04-15 23:26:16 +03:00
parent 433d4fe7ee
commit 5ebe483f8a
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 9 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

22
src/uxbox/data/auth.cljs
View file

@ -51,19 +51,15 @@
rs/WatchEvent rs/WatchEvent
(-apply-watch [this state s] (-apply-watch [this state s]
(letfn [(on-error [{:keys [status payload]}] (let [params {:username username
(println status payload) :password password
(uum/error (tr "errors.auth.unauthorized")) :scope "webapp"}]
(rx/empty))] (->> (rp/req :fetch/token params)
(let [params {:username username (rx/map :payload)
:password password (rx/mapcat #(rx/of (logged-in %)
:scope "webapp"}] (udp/fetch-projects)
(->> (rp/req :fetch/token params) (udu/fetch-profile)))
(rx/catch rp/client-error? on-error) (rx/catch rp/client-error? #(udm/error (tr "errors.auth.unauthorized")))))))
(rx/map :payload)
(rx/mapcat #(rx/of (logged-in %)
(dp/fetch-projects)
(udu/fetch-profile))))))))
(defn login (defn login
[params] [params]