From 10ec8231513d34b799da48694798e2a899bf603c Mon Sep 17 00:00:00 2001 From: Sean Corfield Date: Sun, 1 Dec 2024 13:24:41 -0800 Subject: [PATCH] switch asserts to proper validation and exceptions Signed-off-by: Sean Corfield --- src/honey/sql.cljc | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/honey/sql.cljc b/src/honey/sql.cljc index 1acdd82..2d183cd 100644 --- a/src/honey/sql.cljc +++ b/src/honey/sql.cljc @@ -2422,7 +2422,8 @@ [clause formatter before] (let [clause (sym->kw clause) before (sym->kw before)] - (assert (keyword? clause)) + (when-not (keyword? clause) + (throw (ex-info "The clause must be a keyword or symbol" {:clause clause}))) (let [k (sym->kw formatter) f (if (keyword? k) (get @clause-format k) @@ -2489,7 +2490,8 @@ DSL." [function formatter] (let [function (sym->kw function)] - (assert (keyword? function)) + (when-not (keyword? function) + (throw (ex-info "The function must be a keyword or symbol" {:function function}))) (let [k (sym->kw formatter) f (if (keyword? k) (get @special-syntax k) @@ -2510,7 +2512,8 @@ construct the DSL)." [op & {:keys [ignore-nil]}] (let [op (sym->kw op)] - (assert (keyword? op)) + (when-not (keyword? op) + (throw (ex-info "The operator must be a keyword or symbol" {:operator op}))) (swap! infix-ops conj op) (when ignore-nil (swap! op-ignore-nil conj op))))