making client code visible again.

2019-01-28 09:20:50 -08:00
parent 294ac40930
commit 2d0b127b4a
6 changed files with 173 additions and 138 deletions
--- a/src/cljc/auto_ap/entities/clients.cljc
+++ b/src/cljc/auto_ap/entities/clients.cljc
@@ -8,6 +8,8 @@
 (s/def ::id int)

 (s/def ::name ::shared/required-identifier)
+(s/def ::code (s/and ::shared/required-identifier
+                     #(re-matches #"[A-Z0-9]+" %)))
 (s/def ::address (s/nilable ::address/address))

 (s/def ::location string?)