Improve performance and many of unexpected conflicts on page save.

This commit is contained in:
Andrey Antukh 2016-12-25 21:38:56 +01:00
parent cf55aeda63
commit 87e19875e3
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95

View file

@ -176,10 +176,10 @@
(deftype PagePersisted [data] (deftype PagePersisted [data]
ptk/UpdateEvent ptk/UpdateEvent
(update [_ state] (update [_ state]
;; TODO: update only the version instead of complete unpacking (let [{:keys [id version]} data]
;; this will improve the application responsiveness when multiple (-> state
;; updates are performed (assoc-in [:pages id :version] version)
(assoc-page state data))) (assoc-packed-page data)))))
(defn- page-persisted? (defn- page-persisted?
[event] [event]