adding more sidebar cleanup.
This commit is contained in:
@@ -28,16 +28,16 @@
|
||||
(s/def ::bank-accounts (s/coll-of ::bank-account))
|
||||
|
||||
(s/def ::location string?)
|
||||
(s/def ::locations (s/coll-of ::location))
|
||||
(s/def ::locations (s/coll-of ::location :min-count 1))
|
||||
|
||||
(s/def ::email (s/nilable (s/and string? (s/or :is-email #(re-matches email-regex %)
|
||||
:is-empty #(= % "")))))
|
||||
|
||||
|
||||
(s/def ::client (s/keys :req-un [::name ::code]
|
||||
(s/def ::client (s/keys :req-un [::name ::code ::locations]
|
||||
:opt-un [::email
|
||||
::address
|
||||
::locations
|
||||
|
||||
::bank-accounts
|
||||
::id]))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user