3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-09 13:51:38 +02:00
Code Issues Projects Releases Packages Wiki Activity

🐛 Fix unexpected bug when error is propagated on persist-page event.

Browse source
This commit is contained in:
Andrey Antukh 2019-09-17 16:13:04 +00:00
parent ff64332958
commit 7b3ce38cc1
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
frontend/src/uxbox/main/data/pages.cljs
View file

@ -290,9 +290,9 @@
(let [page (pack-page state id)] (let [page (pack-page state id)]
(->> (rp/req :update/page page) (->> (rp/req :update/page page)
(rx/map :payload) (rx/map :payload)
(rx/do #(when (fn? on-success) (rx/map page-persisted)
(ts/schedule-on-idle on-success))) (rx/catch (fn [err] (rx/of ::page-persist-error)))))))))))
(rx/map page-persisted)))))))))
(defn persist-page? (defn persist-page?
[v] [v]
@ -428,6 +428,7 @@
(rx/debounce 1000) (rx/debounce 1000)
(rx/mapcat #(rx/merge (rx/of (persist-page id)) (rx/mapcat #(rx/merge (rx/of (persist-page id))
(->> (rx/filter page-persisted? stream) (->> (rx/filter page-persisted? stream)
(rx/timeout 1000 (rx/empty))
(rx/take 1) (rx/take 1)
(rx/ignore))))) (rx/ignore)))))
(->> stream (->> stream
@ -437,5 +438,6 @@
(->> (rx/filter metadata-persisted? stream) (->> (rx/filter metadata-persisted? stream)
(rx/take 1) (rx/take 1)
(rx/ignore)))))) (rx/ignore))))))
(rx/take-until stopper)))))) (rx/take-until stopper)
(rx/retry 10000))))))