🐛 Fix incorect pred build on ::sm/text schema

This commit is contained in:
Andrey Antukh
2025-11-27 12:12:03 +01:00
parent 28f550d533
commit 972b23e6c0

View File

@@ -919,7 +919,7 @@
:pred #(and (string? %) (not (str/blank? %))) :pred #(and (string? %) (not (str/blank? %)))
:property-pred :property-pred
(fn [{:keys [min max] :as props}] (fn [{:keys [min max] :as props}]
(if (seq props) (if (or min max)
(fn [value] (fn [value]
(let [size (count value)] (let [size (count value)]
(cond (cond