making main form better.

src/cljc/auto_ap/entities/invoice.cljc

@@ -10,7 +10,6 @@
 (s/def ::due (s/nilable ::shared/date))
 (s/def ::scheduled-payment (s/nilable ::shared/date))
 (s/def ::total ::shared/money)
-(s/def ::vendor-id ::shared/identifier)
 
 (s/def ::invoice (s/keys :req-un [::client
                                   ::invoice-number

src/cljc/auto_ap/entities/shared.cljc

@@ -3,7 +3,7 @@
             [clojure.string :as str]))
 
 (def date-regex #"[0-9]{4}-[0-9]{1,2}-[0-9]{1,2}")
-(def money-regex #"\-?[0-9]+(\.[0-9]{1,2})?$")
+(def money-regex #"\-?[0-9]+(\.[0-9]{2})?$")
 (def numeric-regex #"^[0-9]+$")
 (def only-upper-case #"^[A-Z]+$")
 
@@ -14,4 +14,5 @@
 
 (s/def ::money (s/or :string (s/and string?
                                     #(re-matches money-regex %))
-                     :float float?))
+                     :float float?
+                     :int int?))