📎 Temporary comment file schema validation

This commit is contained in:
Andrey Antukh 2023-11-20 12:02:32 +01:00
parent 6de55ab444
commit a0870624b6

View file

@ -445,18 +445,18 @@
Raises a validation exception on first error found." Raises a validation exception on first error found."
([file] (validate-file! file nil)) ([file] (validate-file! file nil))
([{:keys [id data] :as file} libraries] ([{:keys [data] :as file} libraries]
(when-not (valid-fdata? data) ;; (when-not (valid-fdata? data)
(if (some? *errors*) ;; (if (some? *errors*)
(vswap! *errors* conj ;; (vswap! *errors* conj
{:code :invalid-file-data-structure ;; {:code :invalid-file-data-structure
:hint (str/ffmt "invalid file data structure found on file '%'" id) ;; :hint (str/ffmt "invalid file data structure found on file '%'" id)
:file-id id}) ;; :file-id id})
(ex/raise :type :validation ;; (ex/raise :type :validation
:code :data-validation ;; :code :data-validation
:hint (str/ffmt "invalid file data found on file '%'" id) ;; :hint (str/ffmt "invalid file data found on file '%'" id)
:file-id id ;; :file-id id
::sm/explain (get-fdata-explain data)))) ;; ::sm/explain (get-fdata-explain data))))
;; If `libraries` is provided, this means the full file ;; If `libraries` is provided, this means the full file
;; validation is activated so we proceed to execute the ;; validation is activated so we proceed to execute the