   (->Field form (coercer type) (reify Validator
                                  (validate [_ value] [])) path))
 
+
+
 (deftype ValidationResult [errors]
   PathErrors
   (path-errors [this path]

  ([value validator f & args]
   (let [new-value (apply f value args)]
     (-> new-value
         (assoc ::validator-errors (validator (::value new-value)))))))

(extend-type nil
  Validatable
  (valid? [this]
    true)


  Value
  (value [this]
    (reaction (get @value ::value)))
  (value [this default]
    (reaction (get @value ::value default)))
  (set-value! [this val]
    (swap! value
