added suggestions
This commit is contained in:
@@ -13,14 +13,6 @@
|
||||
(def not-empty-string (m/schema [:re {:error/message "Required"} #"\S+"]))
|
||||
(def code-string (m/schema [:re #"[A-Z0-9\-]+"]))
|
||||
|
||||
(def positive-integer (m/schema [:int {:min 1}]))
|
||||
(def integer-code (m/schema [:int {:min 10000 :max 99999}]))
|
||||
|
||||
(def expense-account (m/schema [:map
|
||||
[:id :string]
|
||||
[:account reference]
|
||||
[:location :string]
|
||||
[:amount money]]))
|
||||
|
||||
|
||||
(def approval-status (m/schema [:enum :unapproved :requires-feedback :approved :excluded]))
|
||||
|
||||
Reference in New Issue
Block a user