johanels/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-12-11 22:14:05 +01:00
Code Issues Actions 9 Packages Projects Releases Wiki Activity

✨ Make check-fn completly lazy

Browse Source
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
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 (defn check-fn
"Create a predefined check function" "Create a predefined check function"
[s & {:keys [hint type code]}] [s & {:keys [hint type code]}]
(let [s (schema s) (let [s (delay (schema s))
validator* (delay (m/validator s)) validator* (delay (m/validator @s))
explainer* (delay (m/explainer s)) explainer* (delay (m/explainer @s))
hint (or ^boolean hint "check error") hint (or ^boolean hint "check error")
type (or ^boolean type :assertion) type (or ^boolean type :assertion)
code (or ^boolean code :data-validation)] code (or ^boolean code :data-validation)]