mirror of
https://github.com/penpot/penpot.git
synced 2025-12-11 22:14:05 +01:00
Fix trying to update shapes for deleted tokens crash
This commit is contained in:
@@ -55,8 +55,12 @@
|
|||||||
[xs resolved-tokens shape]
|
[xs resolved-tokens shape]
|
||||||
(-> (reduce
|
(-> (reduce
|
||||||
(fn [acc [k v]]
|
(fn [acc [k v]]
|
||||||
(let [resolved-value (get-in resolved-tokens [v :resolved-value])]
|
(let [resolved-token (get resolved-tokens v)
|
||||||
(if (and filter-existing-values? (= (get shape k) resolved-value))
|
resolved-value (get resolved-token :resolved-value)
|
||||||
|
skip? (or
|
||||||
|
(not (get resolved-tokens v))
|
||||||
|
(and filter-existing-values? (= (get shape k) resolved-value)))]
|
||||||
|
(if skip?
|
||||||
acc
|
acc
|
||||||
(update acc resolved-value (fnil conj #{}) k))))
|
(update acc resolved-value (fnil conj #{}) k))))
|
||||||
{} xs)))
|
{} xs)))
|
||||||
|
|||||||
Reference in New Issue
Block a user