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]
(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))))