refactor: compute pipeline tx-data before d/transact!

This commit is contained in:
Tienson Qin
2025-10-15 15:31:42 +08:00
parent df0bc2ca48
commit 999618a406
13 changed files with 175 additions and 184 deletions

View File

@@ -95,8 +95,7 @@
(println (some-> (get-in m [:ex-data :error]) .-stack)))
(when debug
(when-let [matching-tx (seq (filter #(and (get-in m [:ex-data :path])
(or (= (get-in % [:tx-meta ::gp-exporter/path]) (get-in m [:ex-data :path]))
(= (get-in % [:tx-meta ::outliner-pipeline/original-tx-meta ::gp-exporter/path]) (get-in m [:ex-data :path]))))
(= (get-in % [:tx-meta ::gp-exporter/path]) (get-in m [:ex-data :path])))
@tx-queue))]
(println (str "\n" (count matching-tx)) "Tx Maps for failing path:")
(pprint/pprint matching-tx))))