enhance: run db validate before writes

This commit is contained in:
Tienson Qin
2025-10-13 22:57:21 +08:00
parent 7ed7fb4f31
commit b538fe2571
9 changed files with 90 additions and 95 deletions

View File

@@ -883,9 +883,19 @@
(reset! *service [graph service])
service)))))
(defn- notify-invalid-data
[{:keys [tx-meta]}]
;; don't notify on production when undo/redo failed
(when-not (and (or (:undo? tx-meta) (:redo? tx-meta))
(not worker-util/dev?))
(shared-service/broadcast-to-clients! :notification
[["Invalid DB!"] :error])))
(defn init
"web worker entry"
[]
(ldb/register-transact-invalid-callback-fn! notify-invalid-data)
(let [proxy-object (->>
fns
(map