making cloud runnable again.

src/clj/auto_ap/datomic.clj

@@ -685,7 +685,7 @@
         (into (map (fn [i] (if is-component?
                                 [:db/retractEntity i]
                                 [:db/retract e a i ])) retract-ids))
-        (into (map (fn [i] [:db/add e a (:db/id i)]) new-rels))
+        (into (map (fn [i] [:db/add e a i]) new-rels))
         (into (mapcat (fn [i] (upsert-entity db i)) vs)))))
 
 (defn reset-scalars [db e a vs]
@@ -703,6 +703,7 @@
         (into (map (fn [i] [:db/add e a i]) new)))))
 
 
+;; TODO unit test this
 (defn upsert-entity [db entity]
   (assert (:db/id entity) "Cannot upsert without :db/id")
   (let [e             (:db/id entity)