Use 2-arity <= in min-max validation

metosin · Sep 6, 2024 · c59480e · c59480e
1 parent bf6d832
commit c59480e
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/malli/core.cljc b/src/malli/core.cljc
@@ -652,8 +652,9 @@
   (fn [{:keys [min max]}]
     (cond
       (not (or min max)) nil
-      (and (and min max) f) (fn [x] (let [size (f x)] (<= min size max)))
-      (and min max) (fn [x] (<= min x max))
+      (and (and min max) f) (fn [x] (let [size (f x)]
+                                      (and (<= min size) (<= size max))))
+      (and min max) (fn [x] (and (<= min x) (<= x max)))
       (and min f) (fn [x] (<= min (f x)))
       min (fn [x] (<= min x))
       (and max f) (fn [x] (<= (f x) max))