Merge pull request #10 from vlaaad/patch-1

kordano · web-flow · commit b4b2b79a914f · 2021-11-09T11:12:56.000+01:00
Allow entity ids to be strings in datoms
diff --git a/src/wanderung/datom.clj b/src/wanderung/datom.clj
@@ -1,7 +1,7 @@
 (ns wanderung.datom
   (:require [clojure.spec.alpha :as spec]))
 
-(spec/def :datom/eid number?)
+(spec/def :datom/eid (spec/or :id number? :tempid string?))
 (spec/def :datom/attribute keyword?)
 (spec/def :datom/value any?)
 (spec/def :datom/transaction-id :datom/eid)
diff --git a/src/wanderung/datomic_cloud.clj b/src/wanderung/datomic_cloud.clj
@@ -116,5 +116,5 @@
                                          v) tx added])))
         data-extract (mapcat (fn [{:keys [data]}]
                                (into [] map-db-ident data)))
-        tx-data (d/tx-range conn {:start start-tx})]
+        tx-data (d/tx-range conn {:start start-tx :limit -1})]
     (into [] data-extract tx-data)))
