Added datomic events to match possible name-removal events coming fro…

…m generic (batch) entity api (to match up fix made in commit 097c647)
WormBase · Sep 24, 2020 · 4ef340c · 4ef340c
1 parent 000eeea
commit 4ef340c
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/resources/schema/seed-data.edn b/resources/schema/seed-data.edn
@@ -85,14 +85,17 @@
   #:db{:ident :event/kill-variation}
   #:db{:ident :event/update-variation}
   #:db{:ident :event/resurrect-variation}
+  #:db{:ident :event/remove-name-variation}
   #:db{:ident :event/new-sequence-feature}
   #:db{:ident :event/kill-sequence-feature}
   #:db{:ident :event/resurrect-sequence-feature}
+  #:db{:ident :event/remove-name-sequence-feature}
   #:db{:ident :event/new-species}
   #:db{:ident :event/update-species}
   #:db{:ident :event/new-entity-type}
   #:db{:ident :event/disable-entity-type}
   #:db{:ident :event/enable-entity-type}
+  #:db{:ident :event/remove-name-strain}
 
   ;; nonce schema for import only
   #:db{:ident :importer/historical-gene-version

diff --git a/src/wormbase/names/batch/generic.clj b/src/wormbase/names/batch/generic.clj
@@ -268,7 +268,7 @@
 
 (defn retract-names [request entity-type]
   (let [name-attr (keyword entity-type "name")
-        event-ident (keyword "event" (str "remove-" entity-type "-name"))]
+        event-ident (keyword "event" (str "remove-name-" entity-type))]
     (adjust-attr-vals name-attr
                       name-attr
                       event-ident