rfct: use contains-op? to filter op list

athensresearch · Apr 12, 2022 · b180ecf · b180ecf
1 parent faf493f
commit b180ecf
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/cljs/athens/events.cljs b/src/cljs/athens/events.cljs
@@ -1638,10 +1638,10 @@
             new-uids   (graph-ops/ops->new-block-uids op)
             [_rm add]  (graph-ops/structural-diff @db/dsdb op)
             event      (common-events/build-atomic-event op)
-            focus-uid  (->> op
-                            :op/consequences
-                            (some #(when (= :block/new (:op/type %))
-                                     (-> % :op/args :block/uid))))]
+            focus-uid  (-> (graph-ops/contains-op? op :block/new)
+                           first
+                           :op/args
+                           :block/uid)]
         (log/debug "paste internal event is" (pr-str event))
         {:fx [[:async-flow {:id             :paste-internal-async-flow
                             :db-path        [:async-flow :paste-internal]