github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-09-06 20:18:39 +00:00
Code Issues Packages Projects Releases Wiki Activity

🔥 Remove duplicate code

Browse Source
This commit is contained in:
Andrey Antukh 2023-07-03 18:37:04 +02:00
parent fbf89d7f6c
commit 8dfebc39fe
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
common/src/app/common/pages/changes.cljc
View File

@ -249,9 +249,6 @@
;; Changes Processing Impl ;; Changes Processing Impl
(def valid-shape?
(sm/pred-fn ::cts/shape))
(defn validate-shapes! (defn validate-shapes!
[data-old data-new items] [data-old data-new items]
(letfn [(validate-shape! [[page-id id]] (letfn [(validate-shape! [[page-id id]]
@ -262,7 +259,7 @@
(when (and (some? shape-new) (when (and (some? shape-new)
(not= shape-old shape-new)) (not= shape-old shape-new))
(dm/verify! (and (cts/shape? shape-new) (dm/verify! (and (cts/shape? shape-new)
(valid-shape? shape-new))))))] (cts/valid-shape? shape-new))))))]
(->> (into #{} (map :page-id) items) (->> (into #{} (map :page-id) items)
(mapcat (fn [page-id] (mapcat (fn [page-id]