adding more sidebar cleanup.

This commit is contained in:
Bryce Covert
2019-02-17 08:46:43 -08:00
parent fdcc3192a1
commit 23d1fb9369
4 changed files with 50 additions and 52 deletions

View File

@@ -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]))