3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-04 15:18:23 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Add parameters validation to binfile write-export! fn

Browse source
This commit is contained in:
Andrey Antukh 2022-07-06 15:39:25 +02:00
parent d90b4370fb
commit f4f58bc163
4 changed files with 66 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

29
backend/src/app/rpc/commands/binfile.clj
View file

@ -394,12 +394,31 @@
same file library all assets used from external libraries.
"
[{:keys [pool storage ::output ::file-id ::include-libraries? ::embed-assets?]}]
[{:keys [pool storage ::output ::file-id ::include-libraries? ::embed-assets?] :as options}]
(when (and include-libraries? embed-assets?)
(ex/raise :type :restriction
:code :mutual-exclusive-options-provided
:hint "the `include-libraries?` option is mutually exclusive with `embed-assets?`"))
(us/assert! :spec ::db/pool :val pool)
(us/assert! :spec ::sto/storage :val storage)
(us/assert!
:expr (uuid? file-id)
:hint "`file-id` should be an uuid")
(us/assert!
:expr (bs/data-output-stream? output)
:hint "`output` should be an instance of OutputStream")
(us/assert!
:expr (d/boolean-or-nil? include-libraries?)
:hint "invalid value provided for `include-libraries?` option, expected boolean")
(us/assert!
:expr (d/boolean-or-nil? embed-assets?)
:hint "invalid value provided for `embed-assets?` option, expected boolean")
(us/assert!
:always? true
:expr (not (and include-libraries? embed-assets?))
:hint "the `include-libraries?` and `embed-assets?` are mutally excluding options")
(let [libs (when include-libraries? (retrieve-libraries pool file-id))
rels (when include-libraries? (retrieve-library-relations pool (cons file-id libs)))