From fa049cc22c6c7b64b51e6e10b33a259fa58945d7 Mon Sep 17 00:00:00 2001 From: Shagun Agrawal Date: Mon, 2 Dec 2024 20:58:31 +0530 Subject: Refactor schema to separate file --- src/cljcc/analyze/resolve.clj | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/cljcc/analyze/resolve.clj') diff --git a/src/cljcc/analyze/resolve.clj b/src/cljcc/analyze/resolve.clj index b633405..9250e49 100644 --- a/src/cljcc/analyze/resolve.clj +++ b/src/cljcc/analyze/resolve.clj @@ -2,6 +2,7 @@ (:require [cljcc.exception :as exc] [cljcc.parser :as p] [malli.dev.pretty :as pretty] + [cljcc.schema :as s] [cljcc.util :as util] [malli.core :as m])) @@ -271,8 +272,8 @@ ;; Program is list of block items, which are themselves just blocks. (defn resolve-program [program] (let [res (:block (resolve-block program)) - _ (m/coerce p/Program res)] - res)) + _ (m/coerce s/Program res)] + res)) (comment @@ -290,7 +291,7 @@ resolve-program) (pretty/explain - p/Program + s/Program (-> file-path slurp p/parse-from-src -- cgit v1.2.3