From a3c583af1dc9775c67bb3c61c036a6cbe9e785c9 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Mon, 21 Dec 2020 13:40:51 +0100
Subject: [PATCH] :bug: Don't allow bitints on ::safe-number spec.

---
 common/app/common/spec.cljc | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/common/app/common/spec.cljc b/common/app/common/spec.cljc
index 45b1be6a6..b37bb4568 100644
--- a/common/app/common/spec.cljc
+++ b/common/app/common/spec.cljc
@@ -123,13 +123,14 @@
 
 (s/def ::safe-integer
   #(and
-    (integer? %)
+    (int? %)
     (>= % min-safe-int)
     (<= % max-safe-int)))
 
 (s/def ::safe-number
   #(and
-    (number? %)
+    (or (int? %)
+        (float? %))
     (>= % min-safe-int)
     (<= % max-safe-int)))