From ae28029fbf1f18c4badcddab8126b2703a1c321d Mon Sep 17 00:00:00 2001
From: Sigmund Hansen <sigmund.hansen@uptimeconsulting.no>
Date: Fri, 6 Mar 2020 14:19:12 +0100
Subject: [PATCH] Fixes nested reasons being overwritten by outer spec's
 reason.

---
 src/spec_tools/core.cljc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/spec_tools/core.cljc b/src/spec_tools/core.cljc
index 8e4f338..5ffef1e 100644
--- 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))))