remove custom printers

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

View file

@ -7,15 +7,6 @@
[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])
@ -25,15 +16,6 @@
[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])
@ -46,11 +28,15 @@
(defn param-name [^SqlParam 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]
(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))