Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-23 23:18:48 -05:00
Code Issues Activity

🐛 Fix conform function on uxbox.common.spec.

Browse source
This commit is contained in:
Andrey Antukh 2020-01-11 21:11:18 +01:00
parent 74f1f93732
commit 1cc64ae4d2
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
common/uxbox/common/spec.cljc
View file

@ -126,9 +126,10 @@
[spec data] [spec data]
(let [result (s/conform spec data)] (let [result (s/conform spec data)]
(when (= result ::s/invalid) (when (= result ::s/invalid)
(throw (ex/error :type :validation (let [edata (s/explain-data spec data)]
:code :spec-validation (throw (ex/error :type :validation
:explain (with-out-str :code :spec-validation
(expound/printer data)) :explain (with-out-str
:data (::s/problems data)))) (expound/printer edata))
:data (::s/problems edata)))))
result)) result))