Add better handling on lagged ops on page-update.

This commit is contained in:
Andrey Antukh 2019-12-15 21:53:57 +01:00
parent 1a33c266e3
commit 3eff27b5c5
3 changed files with 37 additions and 10 deletions

View file

@ -174,12 +174,13 @@
s.created_at, s.modified_at, s.user_id
from project_page_snapshots as s
where s.page_id = $1
and s.version > $2")
and s.version > $2
and s.id != $3")
(defn- retrieve-lagged-operations
[conn snapshot params]
(let [sql sql:lagged-snapshots]
(-> (db/query conn [sql (:id params) (:version params)])
(-> (db/query conn [sql (:id params) (:version params) (:id snapshot)])
(p/then (partial mapv decode-row)))))
;; --- Mutation: Delete Page