🔥 Remove unnecessary do on file validation ns

This commit is contained in:
Andrey Antukh 2024-01-17 10:00:31 +01:00
parent f9d63dba00
commit c58302ffc4

View file

@ -367,7 +367,6 @@
[shape-id file page libraries & {:keys [context] :or {context :not-component}}]
(let [shape (ctst/get-shape page shape-id)]
(when (some? shape)
(do
(check-geometry shape file page)
(check-parent-children shape file page)
(check-frame shape file page)
@ -424,7 +423,7 @@
(report-error :not-component-not-allowed
"Not compoments are not allowed inside a main"
shape file page)
(check-shape-not-component shape file page libraries)))))))))
(check-shape-not-component shape file page libraries))))))))
(defn- check-component
"Validate semantic coherence of a component. Report all errors found."