✨ Improve invalid schema error report

2025-12-11 22:14:05 +01:00 · 2025-12-04 11:38:16 +01:00
parent 504eb70988
commit 19bb69cc60
1 changed files with 14 additions and 1 deletions
--- a/common/src/app/common/schema.cljc
+++ b/common/src/app/common/schema.cljc
@@ -281,7 +281,20 @@
 (defn check-fn
  "Create a predefined check function"
  [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))
        explainer* (delay (m/explainer s))
        hint       (or ^boolean hint "check error")