   (reset-value! [this]
     (swap! value (fn [value]
                    {::value    (::original value)
-                    ::original (::original value)}
-                   ::validator (::validator value))))
+                    ::original (::original value)})))
 
   PathValue
   (path-value [_ type path]
     (path-value _ type path nil))
   (path-value [_ type path default]
     (reaction (get-in @value (field-path type path) default)))
+
+  PathErrors
+  (path-errors [_ path]
+    (reaction (path-errors (::validator-errors @value) path)))
 
   Validatable
   (valid? [_]

(defprotocol Validator
  (validate [this value]))

Validator by mohol vracat nejaky Errors kde bude povedane ci je ok a path

(defprotocol Touchable
  (touch [this])

  (path-value [this type path]
              [this type path default]))

(defprotocol PathErrors
  (path-errors [this path]))

(defprotocol CoercedValue
  (str-value [this])
  (set-str-value! [this val]))
