reimplemented import
This commit is contained in:
@@ -9,9 +9,20 @@
|
||||
|
||||
(s/def ::name ::shared/required-identifier)
|
||||
(s/def ::code (s/and ::shared/required-identifier
|
||||
#(re-matches #"[A-Z0-9]+" %)))
|
||||
#(re-matches #"[A-Z0-9\-]+" %)))
|
||||
(s/def ::address (s/nilable ::address/address))
|
||||
|
||||
(s/def ::bank-name ::shared/required-identifier)
|
||||
(s/def ::bank-code ::shared/required-identifier)
|
||||
(s/def ::routing ::shared/required-identifier)
|
||||
(s/def ::number ::shared/required-identifier)
|
||||
(s/def ::type keyword?)
|
||||
(s/def ::number string?)
|
||||
(s/def ::yodlee-account-id string?)
|
||||
|
||||
(s/def ::bank-account (s/keys :req-un [::code ::name ::bank-name ::bank-code ::routing ::number]))
|
||||
(s/def ::bank-accounts (s/coll-of ::bank-account))
|
||||
|
||||
(s/def ::location string?)
|
||||
(s/def ::locations (s/coll-of ::location))
|
||||
|
||||
@@ -23,6 +34,7 @@
|
||||
:opt-un [::email
|
||||
::address
|
||||
::locations
|
||||
::bank-accounts
|
||||
::id]))
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user