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

✨ Improve invalid schema error report

Browse Source
This commit is contained in:
Andrey Antukh
2025-12-04 11:38:16 +01:00
parent 504eb70988
commit 19bb69cc60
1 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -281,7 +281,20 @@
(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 #?(:clj
(schema s)
:cljs
(try
(schema s)
(catch :default cause
(let [data (ex-data cause)]
(if (= :malli.core/invalid-schema (:type data))
(throw (ex-info
(str "Invalid schema\n"
(pp/pprint-str (:data data)))
{}))
(throw cause))))))
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")