Properly access ::s/problems key in coercion-spec

This commit is contained in:
Kevin van Rooijen 2019-05-20 17:30:17 +02:00
parent 542e11bd95
commit a9cacd78ce

View file

@ -110,7 +110,7 @@
(into-spec model name))
(-open-model [_ spec] spec)
(-encode-error [_ error]
(let [problems (::s/problems error)]
(let [problems (-> error :problems ::s/problems)]
(-> error
(update :spec (comp str s/form))
(assoc :problems (mapv #(update % :pred stringify-pred) problems)))))