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