More standardization

src/clj/auto_ap/datomic/migrate.clj

@@ -67,7 +67,7 @@
                                       new-id-set (set (map :db/id vs))
                                       retract-ids (filter (complement new-id-set) ids)]
                                   (cond-> []
-                                    true (into (map (fn [i] [:db/retractEntity i ]) retract-ids))
+                                    true (into (map (fn [i] [:db/retract e a i ]) retract-ids))
                                     (seq vs) (conj {:db/id e
                                                     a vs})))})}]])
 
@@ -308,7 +308,8 @@
                                               {:db/ident :invoice/automatically-paid-when-due
                                                :db/doc "Whether this invoice should be marked as paid when it's due"
                                                :db/valueType :db.type/boolean
-                                               :db/cardinality :db.cardinality/one}]]}}
+                                               :db/cardinality :db.cardinality/one}]]}
+                   :auto-ap/fix-reset-rels {:txes-fn `reset-function}}
         ]
       (println "Conforming database...")
       (c/ensure-conforms  conn norms-map)