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

Replace alter-var-root with atom for parameterizers

Browse source
This commit is contained in:
Juvenn Woo 2018-03-09 14:11:50 +08:00
parent 2abe128008
commit e874a6114d
No known key found for this signature in database
GPG key ID: A0E27BBC3F48491A
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/honeysql/format.cljc
View file

@ -52,9 +52,10 @@
:oracle #(str \" (string/replace % "\"" "\"\"") \")})
(def ^:private parameterizers
{:postgresql #(str "$" (swap! *all-param-counter* inc))
(atom
{:postgresql #(str "$" (swap! *all-param-counter* inc))
:jdbc (constantly "?")
:none #(str (last @*params*))})
:none #(str (last @*params*))}))
(defn register-parameterizer
"Register f as a customized parameterizer.
@ -62,8 +63,8 @@
(register-parameterizer :single-quote #(str \"'\" % \"'\"))
(format sql-map :parameterizer :single-quote)"
[k f]
(alter-var-root
#'parameterizers
(swap!
parameterizers
(fn [m]
(assoc m k #(f (last @*params*))))))
@ -265,7 +266,7 @@
*param-names* (atom [])
*input-params* (atom params)
*quote-identifier-fn* (quote-fns (:quoting opts))
*parameterizer* (parameterizers (or (:parameterizer opts) :jdbc))
*parameterizer* (@parameterizers (or (:parameterizer opts) :jdbc))
*allow-dashed-names?* (:allow-dashed-names? opts)]
(let [sql-str (to-sql sql-map)]
(if (and (seq @*params*) (not= :none (:parameterizer opts)))