removed redundant stuff.
This commit is contained in:
@@ -100,12 +100,6 @@
|
||||
(re-frame/reg-event-db
|
||||
::check-problems
|
||||
(fn [db [_ form schema]]
|
||||
(println "Checking problems"
|
||||
form
|
||||
(get-in db [::forms form :data])
|
||||
(keys (get-in db [::forms]))
|
||||
schema
|
||||
(m/explain schema (get-in db [::forms form :data])))
|
||||
(assoc-in db [::forms form :problems]
|
||||
(when schema (m/explain schema (get-in db [::forms form :data]))))))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user