clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-20 02:42:49 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix(db): restore full conn state in batch transact

Browse Source
This commit is contained in:
Tienson Qin
2026-03-20 21:45:24 +08:00
parent 2b707c1199
commit f17e52c42f
1 changed files with 4 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
deps/db/src/logseq/db.cljs vendored
View File

@@ -187,9 +187,9 @@
"Validate db and store once for a batch transaction, the conn can still load data from disk,
however it can't write to the disk."
[conn tx-meta batch-tx-fn & {:keys [listen-db]}]
(let [_ (swap! conn assoc :skip-store? true
(let [conn-state-before @(:atom conn)
_ (swap! conn assoc :skip-store? true
:batch-tx? true)
db-before @conn
*batch-tx-data (volatile! [])]
(d/listen! conn ::batch-tx
(fn [{:keys [tx-data] :as tx-report}]
@@ -199,14 +199,11 @@
(batch-tx-fn conn)
(d/unlisten! conn ::batch-tx)
(let [tx-data @*batch-tx-data]
(reset! conn db-before)
(swap! conn assoc
:skip-store? false
:batch-tx? false)
(reset! (:atom conn) conn-state-before)
(vreset! *batch-tx-data nil)
(when (seq tx-data)
;; transact tx-data to `conn` and validate db
(transact! conn tx-data (assoc tx-meta :debug-batch? true))))))
(transact! conn tx-data tx-meta)))))
(def page? entity-util/page?)
(def internal-page? entity-util/internal-page?)