diff --git a/common/src/app/common/schema.cljc b/common/src/app/common/schema.cljc index c0c933266..25e802f8b 100644 --- a/common/src/app/common/schema.cljc +++ b/common/src/app/common/schema.cljc @@ -686,8 +686,8 @@ pred) pred (if (some? max) (fn [v] - (and (>= max v) - (pred v))) + (and (pred v) + (>= max v))) pred)] {:pred pred @@ -724,8 +724,8 @@ pred) pred (if (some? max) (fn [v] - (and (>= max v) - (pred v))) + (and (pred v) + (>= max v))) pred)] {:pred pred @@ -754,8 +754,8 @@ pred) pred (if (some? max) (fn [v] - (and (>= max v) - (pred v))) + (and (pred v) + (>= max v))) pred) gen (sg/one-of