diff options
| author |   C.T. Paterson <ctpaterson+onap@gmail.com> | 2018-09-04 14:05:24 -0400 |
|---|---|---|
| committer | C.T. Paterson <ctpaterson+onap@gmail.com> | 2018-09-04 14:49:55 -0400 |
| commit | d0dceef6a3504a376cc689afc119ef15a56b5f7a (patch) | |
| tree | 6403bf7e70a014860e426589bdeec9fc11401607 /src/chameleon/core.clj | |
| parent | 1586036fd345c240982237b76469a1f5d04d122d (diff) | |
Adding version.properties for build job, tests
Issue-ID: AAI-1547
Change-Id: I70ecf0f427eb30da8df1ec3e2a0cec383e0063fb
Signed-off-by: C.T. Paterson <ctpaterson+onap@gmail.com>
Diffstat (limited to 'src/chameleon/core.clj')
| -rw-r--r-- | src/chameleon/core.clj | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/chameleon/core.clj b/src/chameleon/core.clj new file mode 100644 index 0000000..adcb223 --- /dev/null +++ b/src/chameleon/core.clj @@ -0,0 +1,13 @@ +(ns chameleon.core + (:require [clojure.spec.alpha :as s])) + +(defn conform-multiple + [& spec-form-pair] + (if (s/valid? :chameleon.specs/spec-form-pair spec-form-pair) + (->> spec-form-pair + (partition 2) + (map (fn [[sp form]] + (when (s/invalid? (s/conform sp form)) + (s/explain-data sp form)))) + (remove nil?)) + (s/explain-data ::spec-form-pair spec-form-pair))) |