3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-02 20:31:39 +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)]
(->> (rp/req :update/page page)
(rx/map :payload)
(rx/do #(when (fn? on-success)
(ts/schedule-on-idle on-success)))
(rx/map page-persisted)))))))))
(rx/map page-persisted)
(rx/catch (fn [err] (rx/of ::page-persist-error)))))))))))
(defn persist-page?
[v]
@ -428,6 +428,7 @@
(rx/debounce 1000)
(rx/mapcat #(rx/merge (rx/of (persist-page id))
(->> (rx/filter page-persisted? stream)
(rx/timeout 1000 (rx/empty))
(rx/take 1)
(rx/ignore)))))
(->> stream
@ -437,5 +438,6 @@
(->> (rx/filter metadata-persisted? stream)
(rx/take 1)
(rx/ignore))))))
(rx/take-until stopper))))))
(rx/take-until stopper)
(rx/retry 10000))))))