github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-04-25 19:28:12 +00:00
Code Issues Packages Projects Releases Wiki 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]
(let [result (s/conform spec data)]
(when (= result ::s/invalid)
(throw (ex/error :type :validation
:code :spec-validation
:explain (with-out-str
(expound/printer data))
:data (::s/problems data))))
(let [edata (s/explain-data spec data)]
(throw (ex/error :type :validation
:code :spec-validation
:explain (with-out-str
(expound/printer edata))
:data (::s/problems edata)))))
result))