fixed warnings.
This commit is contained in:
@@ -24,7 +24,7 @@
|
||||
{:errors (merge (-> me/default-errors
|
||||
(assoc ::m/missing-key {:error/message "Required"}
|
||||
::m/invalid-type {:error/fn
|
||||
(fn [a b]
|
||||
(fn [a _]
|
||||
(if (nil? (:value a))
|
||||
"Required"
|
||||
"Invalid"))}))
|
||||
@@ -210,7 +210,7 @@
|
||||
(r/as-element (into [:<>]
|
||||
(r/children (r/current-component))))))
|
||||
|
||||
(defn vertical-control [{:keys [is-small? required?]}]
|
||||
(defn vertical-control [{:keys [required?]}]
|
||||
(let [[label & children] (r/children (r/current-component))]
|
||||
(consume Consumer
|
||||
["fullwidth?"]
|
||||
|
||||
Reference in New Issue
Block a user