3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-07 14:38:33 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Reuse file data checkers on file validate ns

Browse source
This commit is contained in:
Andrey Antukh 2025-07-08 08:50:43 +02:00
parent 8c5afe5ab3
commit 7e493376a4
1 changed files with 2 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

18
common/src/app/common/files/validate.cljc
View file

@ -650,26 +650,12 @@
(check-component component file) (check-component component file)
(deref *errors*))) (deref *errors*)))
(def ^:private valid-fdata?
"Structural validation of file data using defined schema"
(sm/lazy-validator ::ctf/data))
(def ^:private get-fdata-explain
"Get schema explain data for file data"
(sm/lazy-explainer ::ctf/data))
(defn validate-file-schema! (defn validate-file-schema!
"Validates the file itself, without external dependencies, it "Validates the file itself, without external dependencies, it
performs the schema checking and some semantical validation of the performs the schema checking and some semantical validation of the
content." content."
[{:keys [id data] :as file}] [file]
(when-not (valid-fdata? data) (update file :data ctf/check-file-data))
(ex/raise :type :validation
:code :schema-validation
:hint (str/ffmt "invalid file data structure found on file '%'" id)
:file-id id
::sm/explain (get-fdata-explain data)))
file)
(defn validate-file! (defn validate-file!
"Validate full referential integrity and semantic coherence on file data. "Validate full referential integrity and semantic coherence on file data.