浏览代码

fix: equiv-datom only compare eav

rcmerci 2 月之前
父节点
当前提交
a840adbaa6
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      src/main/frontend/worker/pipeline.cljs

+ 2 - 1
src/main/frontend/worker/pipeline.cljs

@@ -342,8 +342,9 @@
                              (group-by (fn [d] (take 4 d))) ; group by '(e a v tx)
                              (mapcat (fn [[_eavt same-v-datoms]]
                                        (butlast same-v-datoms)))
+                             (map vec)
                              set)]
-    (remove conflict-datoms datoms)))
+    (map #(apply d/datom %) (remove conflict-datoms (map vec datoms)))))
 
 (defn transact-pipeline
   "Compute extra tx-data and block/refs, should ensure it's a pure function and