(cloud) makes ledger running balances fast and smooth

src/clj/auto_ap/datomic.clj

@@ -663,6 +663,12 @@
 (defn random-tempid []
   (str (UUID/randomUUID)))
 
+(defn pull-id [db id]
+  (ffirst (dc/q '[:find ?i
+                 :in $ ?i]
+               db
+               id)))
+
 (defn pull-attr [db k id]
   (get (dc/pull db [k] id) k))