notid/integreat
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

not using namespaced keys, due to graphql

Browse Source
This commit is contained in:
Bryce Covert
2018-04-10 10:51:21 -07:00
parent 4a0275f024
commit 53905c317b
19 changed files with 114 additions and 109 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/cljc/auto_ap/entities/companies.cljc
View File

@@ -13,10 +13,10 @@
(s/def ::email (s/nilable (s/and string? (s/or :is-email #(re-matches email-regex %)
:is-empty #(= % "")))))
(s/def ::company (s/keys :req [::name]
:opt [::email
::id]))
(s/def ::company (s/keys :req-un [::name]
:opt-un [::email
::id]))
(def company-spec (apply hash-map (drop 1 (s/form ::company))))
(def all-keys (concat (:req company-spec) (:opt company-spec)))
(def all-keys (map #(keyword (name %)) (concat (:req-un company-spec) (:opt-un company-spec))))

6
src/cljc/auto_ap/entities/vendors.cljc
View File

@@ -31,8 +31,8 @@
(s/def ::state (s/nilable string?))
(s/def ::zip (s/nilable string?))
(s/def ::vendor (s/keys :req [::name]
:opt [::code
(s/def ::vendor (s/keys :req-un [::name]
:opt-un [::code
::id
::invoice-reminder-schedule
::primary-contact
@@ -49,4 +49,4 @@
(def vendor-spec (apply hash-map (drop 1 (s/form ::vendor))))
(def all-keys (concat (:req vendor-spec) (:opt vendor-spec)))
(def all-keys (map #(keyword (name %)) (concat (:req-un vendor-spec) (:opt-un vendor-spec))))