Explicitly check for CharSequence in -re-schema

metosin · Sep 6, 2024 · f722146 · f722146
1 parent bf6d832
commit f722146
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/malli/core.cljc b/src/malli/core.cljc
@@ -1474,11 +1474,11 @@
           (-to-ast [this _] (-to-value-ast this))
           Schema
           (-validator [_]
-            (-safe-pred #(re-find re %)))
+            (-safe-pred #(and (instance? CharSequence %) (re-find re %))))
           (-explainer [this path]
             (fn explain [x in acc]
               (try
-                (if-not (re-find re x)
+                (if-not (and (instance? CharSequence x) (re-find re x))
                   (conj acc (miu/-error path in this x))
                   acc)
                 (catch #?(:clj Exception, :cljs js/Error) e