Sfoglia il codice sorgente

fix: equiv-datom only compare eav

rcmerci 1 mese fa
parent
commit
a840adbaa6
1 ha cambiato i file con 2 aggiunte e 1 eliminazioni
  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