mirror of
https://github.com/penpot/penpot.git
synced 2026-08-28 15:48:52 +00:00
📎 Add debug.validate_schema helper
This commit is contained in:
parent
28ce6d2489
commit
366975f067
@ -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…
x
Reference in New Issue
Block a user