First pass at schema for global config

This commit is contained in:
Gabriel Horner
2022-12-05 17:18:32 -05:00
committed by Andelf
parent d8fef76de2
commit 8f5f4fc5b1
4 changed files with 104 additions and 0 deletions

View File

@@ -3,6 +3,7 @@
(:require [malli.core :as m]
[malli.error :as me]
[frontend.schema.handler.plugin-config :as plugin-config-schema]
[frontend.schema.handler.global-config :as global-config-schema]
[clojure.pprint :as pprint]
[clojure.edn :as edn]))
@@ -18,3 +19,16 @@
(println "Found errors:")
(pprint/pprint errors))
(println "Valid!")))
(defn validate-global-config-edn
"Validate a global config.edn file"
[file]
(if-let [errors (->> file
slurp
edn/read-string
(m/explain global-config-schema/Config-edn)
me/humanize)]
(do
(println "Found errors:")
(pprint/pprint errors))
(println "Valid!")))