Fixes nested reasons being overwritten by outer spec's reason.

metosin · Aug 15, 2023 · ae28029 · ae28029
1 parent 8a3284f
commit ae28029
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/spec_tools/core.cljc b/src/spec_tools/core.cljc
@@ -460,7 +460,7 @@
           spec-reason (:reason this)
           with-reason (fn [problem]
                         (cond-> problem
-                                spec-reason
+                                (and spec-reason (not (:reason problem)))
                                 (assoc :reason spec-reason)))]
       (if problems
         (map with-reason problems))))