luciano/honeysql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

switch asserts to proper validation and exceptions

Browse source 
Signed-off-by: Sean Corfield <sean@corfield.org>
This commit is contained in:
Sean Corfield 2024-12-01 13:24:41 -08:00
parent fdfc6bc997
commit 10ec823151
No known key found for this signature in database
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/honey/sql.cljc
View file

@ -2422,7 +2422,8 @@
[clause formatter before] [clause formatter before]
(let [clause (sym->kw clause) (let [clause (sym->kw clause)
before (sym->kw before)] 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) (let [k (sym->kw formatter)
f (if (keyword? k) f (if (keyword? k)
(get @clause-format k) (get @clause-format k)
@ -2489,7 +2490,8 @@
DSL." DSL."
[function formatter] [function formatter]
(let [function (sym->kw function)] (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) (let [k (sym->kw formatter)
f (if (keyword? k) f (if (keyword? k)
(get @special-syntax k) (get @special-syntax k)
@ -2510,7 +2512,8 @@
construct the DSL)." construct the DSL)."
[op & {:keys [ignore-nil]}] [op & {:keys [ignore-nil]}]
(let [op (sym->kw op)] (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) (swap! infix-ops conj op)
(when ignore-nil (when ignore-nil
(swap! op-ignore-nil conj op)))) (swap! op-ignore-nil conj op))))