wip

Author: frenchy64

src/malli/error.cljc

@@ -22,7 +22,7 @@
     (let [remove-prefix #(str/replace-first % prefix "")
           negated? #(str/starts-with? % prefix)]
       (loop [schema schema]
-        (or (when-some [s (error-message (assoc error :negated #(str prefix %)) options)]
+        (or (when-some [s (error-message (assoc error :negated #(some->> % (str prefix))) options)]
               (if (negated? s)
                 (remove-prefix s)
                 (or (when (and (string? s)