3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-01 18:11:37 +02:00
Code Issues Projects Releases Packages Wiki Activity

⚡ Add minor optimization for d/without-qualified helper

Browse source
This commit is contained in:
Andrey Antukh 2024-02-12 14:53:56 +01:00
parent 528f0b4f60
commit e55d1a3b7f
3 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
backend/src/app/rpc.clj
View file

@ -149,9 +149,11 @@
(let [params (decode params)] (let [params (decode params)]
(if (validate params) (if (validate params)
(f cfg params) (f cfg params)
(let [params (d/without-qualified params)]
(ex/raise :type :validation (ex/raise :type :validation
:code :params-validation :code :params-validation
::sm/explain (explain params)))))) ::sm/explain (explain params)))))))
f)) f))
(defn- wrap-output-validation (defn- wrap-output-validation

7
common/src/app/common/data.cljc
View file

@ -242,7 +242,12 @@
([] ([]
(remove (comp qualified-keyword? key))) (remove (comp qualified-keyword? key)))
([data] ([data]
(into {} (without-qualified) data))) (reduce-kv (fn [data k _]
(if (qualified-keyword? k)
(dissoc data k)
data))
data
data)))
(defn without-keys (defn without-keys
"Return a map without the keys provided "Return a map without the keys provided

1
common/src/app/common/media.cljc
View file

@ -58,6 +58,7 @@
"application/zip" ".zip" "application/zip" ".zip"
"application/penpot" ".penpot" "application/penpot" ".penpot"
"application/pdf" ".pdf" "application/pdf" ".pdf"
"text/plain" ".txt"
nil)) nil))
(s/def ::id uuid?) (s/def ::id uuid?)