Fixes temporal-upsert for persistent-set.

BestJex · Jul 30, 2020 · b39e278 · b39e278
1 parent 058c59c
commit b39e278
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/datahike/index/persistent_set.cljc b/src/datahike/index/persistent_set.cljc
@@ -63,7 +63,7 @@
   (-> (or (when-let [old (first (-slice set
                                   (dd/datom (.-e datom) (.-a datom) nil tx0)
                                   (dd/datom (.-e datom) (.-a datom) nil txmax)))]
-            ;; insert the retracted version of 'old'
-            (-insert set (dd/datom (.-e old) (.-a old) (.-v old) (.-tx old) false) index-type))
+            (set/conj set (dd/datom (.-e old) (.-a old) (.-v old) (.-tx old) false)
+              (index-type->cmp-quick index-type)))
         set)
     (set/conj datom (index-type->cmp-quick index-type))))