From 366975f067e37ead24ccd05c3f6fe2ba091bbf31 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Mon, 20 Nov 2023 17:31:21 +0100
Subject: [PATCH] :paperclip: Add debug.validate_schema helper

---
 frontend/src/debug.cljs | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/frontend/src/debug.cljs b/frontend/src/debug.cljs
index 256a812e6..6b421cb99 100644
--- a/frontend/src/debug.cljs
+++ b/frontend/src/debug.cljs
@@ -394,6 +394,15 @@
        (catch :default 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
   []
   (let [file      (assoc (get @st/state :workspace-file)