From b6b2d28464e432e6b95078d941ca3dabd032d29c Mon Sep 17 00:00:00 2001 From: Alonso Torres Date: Wed, 24 Sep 2025 18:06:26 +0200 Subject: [PATCH] :bug: Fix problem with flow not being deleted (#7371) --- common/src/app/common/logic/shapes.cljc | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/common/src/app/common/logic/shapes.cljc b/common/src/app/common/logic/shapes.cljc index bad3065ef4..d0958ccacd 100644 --- a/common/src/app/common/logic/shapes.cljc +++ b/common/src/app/common/logic/shapes.cljc @@ -185,15 +185,17 @@ interactions))) (vals objects)) + id-to-delete? (set ids-to-delete) changes - (reduce (fn [changes {:keys [id] :as flow}] - (if (contains? ids-to-delete (:starting-frame flow)) - (-> changes - (pcb/with-page page) - (pcb/set-flow id nil)) - changes)) - changes - (:flows page)) + (->> (:flows page) + (reduce + (fn [changes [id flow]] + (if (id-to-delete? (:starting-frame flow)) + (-> changes + (pcb/with-page page) + (pcb/set-flow id nil)) + changes)) + changes)) all-parents