🐛 Don't allow bitints on ::safe-number spec.

This commit is contained in:
Andrey Antukh 2020-12-21 13:40:51 +01:00 committed by Alonso Torres
parent 84e95ab4c2
commit a3c583af1d

View file

@ -123,13 +123,14 @@
(s/def ::safe-integer (s/def ::safe-integer
#(and #(and
(integer? %) (int? %)
(>= % min-safe-int) (>= % min-safe-int)
(<= % max-safe-int))) (<= % max-safe-int)))
(s/def ::safe-number (s/def ::safe-number
#(and #(and
(number? %) (or (int? %)
(float? %))
(>= % min-safe-int) (>= % min-safe-int)
(<= % max-safe-int))) (<= % max-safe-int)))