[fr33m0nk]: Moves map? as explicit opts parameter

metosin · Oct 17, 2022 · 4e1146e · 4e1146e
1 parent 91467b4
commit 4e1146e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/malli/core.cljc b/src/malli/core.cljc
@@ -942,7 +942,7 @@
 
 (defn -map-schema
   ([]
-   (-map-schema {:naked-keys true}))
+   (-map-schema {:naked-keys true :pred map?}))
   ([opts] ;; :naked-keys, :lazy, :pred
    ^{:type ::into-schema}
    (reify
@@ -954,7 +954,7 @@
      (-properties-schema [_ _])
      (-children-schema [_ _])
      (-into-schema [parent {:keys [closed] :as properties} children options]
-       (let [pred? (:pred opts map?)
+       (let [pred? (:pred opts)
              entry-parser (-create-entry-parser children opts options)
              form (delay (-create-entry-form parent properties entry-parser options))
              cache (-create-cache options)