Add micro optimization on refs/children-objects

This commit is contained in:
Andrey Antukh 2023-09-05 14:18:38 +02:00
parent 4d2afd483b
commit 63e250d9d0

View file

@ -311,8 +311,8 @@
[id] [id]
(l/derived (l/derived
(fn [objects] (fn [objects]
(let [children-ids (get-in objects [id :shapes])] (->> (dm/get-in objects [id :shapes])
(into [] (keep (d/getf objects)) children-ids))) (into [] (keep (d/getf objects)))))
workspace-page-objects =)) workspace-page-objects =))
(defn all-children-objects (defn all-children-objects