(cloud) big performance fixes

src/clj/auto_ap/datomic.clj

@@ -636,7 +636,7 @@
            true (update :tempids merge (:tempids tx-result)))))
 
      {}
-     (partition-all 50 txes))))
+     (partition-all 200 txes))))
 
 (defn audit-transact [txes id]
   (dc/transact conn {:tx-data (conj txes {:db/id      "datomic.tx"
@@ -664,10 +664,13 @@
   (str (UUID/randomUUID)))
 
 (defn pull-id [db id]
-  (ffirst (dc/q '[:find ?i
-                 :in $ ?i]
-               db
-               id)))
+  (if (sequential? id)
+    (ffirst (dc/q '[:find ?i 
+                    :in $ [?a ?v]
+                    :where [?i ?a ?v]]
+                  db
+                  id))
+    id))
 
 (defn pull-attr [db k id]
   (get (dc/pull db [k] id) k))