From 624032370466c840cefffd8ce1ae8c1bf11fa919 Mon Sep 17 00:00:00 2001 From: Andrey Antukh Date: Wed, 1 Feb 2023 16:36:41 +0100 Subject: [PATCH] :lipstick: Add minor cosmetic changes to common.spec ns --- common/src/app/common/spec.cljc | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/common/src/app/common/spec.cljc b/common/src/app/common/spec.cljc index 76deea9f4d..28c40bb057 100644 --- a/common/src/app/common/spec.cljc +++ b/common/src/app/common/spec.cljc @@ -201,18 +201,18 @@ (letfn [(conformer-fn [dest v] (cond - (coll? v) (into dest non-empty-strings-xf v) + (coll? v) (into dest non-empty-strings-xf v) (string? v) (into dest non-empty-strings-xf (str/split v #"[\s,]+")) :else ::s/invalid)) (unformer-fn [v] (str/join "," v))] (s/def ::set-of-strings - (s/with-gen (s/conformer (partial conformer-fn #{}) unformer-fn) - #(tgen/set (s/gen ::not-empty-string)))) + (-> (s/conformer (partial conformer-fn #{}) unformer-fn) + (s/with-gen #(tgen/set (s/gen ::not-empty-string))))) (s/def ::vector-of-strings - (s/with-gen (s/conformer (partial conformer-fn []) unformer-fn) - #(tgen/vector (s/gen ::not-empty-string))))) + (-> (s/conformer (partial conformer-fn []) unformer-fn) + (s/with-gen #(tgen/vector (s/gen ::not-empty-string)))))) ;; --- SPEC: set-of-valid-emails