mirror of
https://github.com/penpot/penpot.git
synced 2025-05-14 00:16:38 +02:00
📎 Add debug.validate_schema helper
This commit is contained in:
parent
28ce6d2489
commit
366975f067
1 changed files with 9 additions and 0 deletions
|
@ -394,6 +394,15 @@
|
||||||
(catch :default cause
|
(catch :default cause
|
||||||
(errors/print-error! cause))))))
|
(errors/print-error! cause))))))
|
||||||
|
|
||||||
|
(defn ^:export validate-schema
|
||||||
|
[]
|
||||||
|
(try
|
||||||
|
(-> (get @st/state :workspace-file)
|
||||||
|
(assoc :data (get @st/state :workspace-data))
|
||||||
|
(cfv/validate-file-schema!))
|
||||||
|
(catch :default cause
|
||||||
|
(errors/print-error! cause))))
|
||||||
|
|
||||||
(defn ^:export repair
|
(defn ^:export repair
|
||||||
[]
|
[]
|
||||||
(let [file (assoc (get @st/state :workspace-file)
|
(let [file (assoc (get @st/state :workspace-file)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue