Skip to content

Commit

Permalink
fix cljs predicate schemas
Browse files Browse the repository at this point in the history
  • Loading branch information
ikitommi committed Oct 24, 2021
1 parent 6c2c565 commit 5deae59
Showing 1 changed file with 5 additions and 6 deletions.
11 changes: 5 additions & 6 deletions src/malli/core.cljc
Expand Up @@ -228,8 +228,7 @@
(assoc name schema)
(assoc @v schema))))

(defn -registry
{:arglists '([] [{:keys [registry]}])}
(defn -registry {:arglists '([] [{:keys [registry]}])}
([] default-registry)
([opts] (or (when opts (mr/registry (opts :registry))) default-registry)))

Expand Down Expand Up @@ -2228,10 +2227,10 @@
(let [-safe-empty? (fn [x] (and (seqable? x) (empty? x)))]
(->> [#'any? #'some? #'number? #'integer? #'int? #'pos-int? #'neg-int? #'nat-int? #'pos? #'neg? #'float? #'double?
#'boolean? #'string? #'ident? #'simple-ident? #'qualified-ident? #'keyword? #'simple-keyword?
#'qualified-keyword? #'symbol? #'simple-symbol? #'qualified-symbol? #'uuid? #'uri? #?(:clj #'decimal?)
#'inst? #'seqable? #'indexed? #'map? #'vector? #'list? #'seq? #'char? #'set? #'nil? #'false? #'true?
#'zero? #?(:clj #'rational?) #'coll? [#'empty? -safe-empty?] #'associative? #'sequential? #?(:clj #'ratio?) #?(:clj #'bytes?)
#'ifn? #'fn?]
#'qualified-keyword? #'symbol? #'simple-symbol? #'qualified-symbol? #'uuid? #'uri? #'inst? #'seqable?
#'indexed? #'map? #'vector? #'list? #'seq? #'char? #'set? #'nil? #'false? #'true?
#'zero? #'coll? [#'empty? -safe-empty?] #'associative? #'sequential? #'ifn? #'fn?
#?@(:clj [#'rational? #'rational? #'ratio? #'bytes?])]
(reduce -register-var {}))))

(defn class-schemas []
Expand Down

0 comments on commit 5deae59

Please sign in to comment.