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

remove custom printers

Browse source 
leave custom readers for backards compatibility
This commit is contained in:
Mike Blume 2015-03-03 18:55:13 -08:00
parent ea6dc98125
commit 6177bcf8ae
1 changed files with 10 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
src/honeysql/types.clj
View file

@ -7,15 +7,6 @@
[name & args] [name & args]
(SqlCall. name args)) (SqlCall. name args))
(defn read-sql-call [form]
(apply call form))
(defmethod print-method SqlCall [^SqlCall o ^java.io.Writer w]
(.write w (str "#sql/call " (pr-str (into [(.name o)] (.args o))))))
(defmethod print-dup SqlCall [o w]
(print-method o w))
;;;; ;;;;
(defrecord SqlRaw [s]) (defrecord SqlRaw [s])
@ -25,15 +16,6 @@
[s] [s]
(SqlRaw. (str s))) (SqlRaw. (str s)))
(defn read-sql-raw [form]
(raw form))
(defmethod print-method SqlRaw [^SqlRaw o ^java.io.Writer w]
(.write w (str "#sql/raw " (pr-str (.s o)))))
(defmethod print-dup SqlRaw [o w]
(print-method o w))
;;;; ;;;;
(defrecord SqlParam [name]) (defrecord SqlParam [name])
@ -46,11 +28,15 @@
(defn param-name [^SqlParam param] (defn param-name [^SqlParam param]
(.name param)) (.name param))
;;;;
;; retain readers for backwards compatibility
(defn read-sql-call [form]
(apply call form))
(defn read-sql-raw [form]
(raw form))
(defn read-sql-param [form] (defn read-sql-param [form]
(param form)) (param form))
(defmethod print-method SqlParam [^SqlParam o ^java.io.Writer w]
(.write w (str "#sql/param " (pr-str (.name o)))))
(defmethod print-dup SqlParam [o w]
(print-method o w))