allow negative invoice.
This commit is contained in:
@@ -3,7 +3,7 @@
|
|||||||
[clojure.string :as str]))
|
[clojure.string :as str]))
|
||||||
|
|
||||||
(def date-regex #"[0-9]{4}-[0-9]{1,2}-[0-9]{1,2}")
|
(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]{1,2})?$")
|
||||||
|
|
||||||
(s/def ::identifier (s/nilable string?))
|
(s/def ::identifier (s/nilable string?))
|
||||||
(s/def ::date (s/and string? #(re-matches date-regex %)))
|
(s/def ::date (s/and string? #(re-matches date-regex %)))
|
||||||
|
|||||||
Reference in New Issue
Block a user