revert

threatgrid · Oct 24, 2024 · 21d2536 · 21d2536
1 parent bb091aa
commit 21d2536
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/flanders/malli.clj b/src/flanders/malli.clj
@@ -51,7 +51,7 @@
       (if-some [tests (some-> (not-empty tests) vec)]
         (let [ntests (count tests)]
           (into [:multi {:dispatch (fn [v]
-                                     (or (some #(when (some? ((nth tests %) v)) %) (range ntests))
+                                     (or (some #(when ((nth tests %) v) %) (range ntests))
                                          :dispatch-failed))}]
                 (map-indexed (fn [i s]
                                [i (let [s (m/schema s opts)]

diff --git a/src/flanders/schema.cljc b/src/flanders/schema.cljc
@@ -57,7 +57,7 @@
   EitherType
   (->schema' [{:keys [choices tests] :as dll} f]
     (-> (let [choice-schemas (map f choices)]
-          (apply s/conditional (mapcat vector (map #(comp some? %) tests) choice-schemas)))
+          (apply s/conditional (mapcat vector tests choice-schemas)))
         (describe dll)))
 
   MapEntry