From 87e19875e310c5ec58682cd280bc58560001e799 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Sun, 25 Dec 2016 21:38:56 +0100
Subject: [PATCH] Improve performance and many of unexpected conflicts on page
 save.

---
 frontend/src/uxbox/main/data/pages.cljs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/frontend/src/uxbox/main/data/pages.cljs b/frontend/src/uxbox/main/data/pages.cljs
index 42ae8d303c..b1024903d9 100644
--- a/frontend/src/uxbox/main/data/pages.cljs
+++ b/frontend/src/uxbox/main/data/pages.cljs
@@ -176,10 +176,10 @@
 (deftype PagePersisted [data]
   ptk/UpdateEvent
   (update [_ state]
-    ;; TODO: update only the version instead of complete unpacking
-    ;; this will improve the application responsiveness when multiple
-    ;; updates are performed
-    (assoc-page state data)))
+    (let [{:keys [id version]} data]
+      (-> state
+          (assoc-in [:pages id :version] version)
+          (assoc-packed-page data)))))
 
 (defn- page-persisted?
   [event]