mirror
/
penpot
mirror of https://github.com/penpot/penpot.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

✨ Make check-fn completly lazy

This commit is contained in:
Andrey Antukh 2025-12-02 17:24:55 +01:00
parent d04fdb5fbd
commit a9733c792d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
common/src/app/common/schema.cljc
View File

@ -284,9 +284,9 @@
(defn check-fn
"Create a predefined check function"
[s & {:keys [hint type code]}]
(let [s (schema s)
validator* (delay (m/validator s))
explainer* (delay (m/explainer s))
(let [s (delay (schema s))
validator* (delay (m/validator @s))
explainer* (delay (m/explainer @s))
hint (or ^boolean hint "check error")
type (or ^boolean type :assertion)
code (or ^boolean code :data-validation)]