make SqlArray a record too
This commit is contained in:
parent
e047829046
commit
441c109b65
1 changed files with 2 additions and 8 deletions
|
|
@ -60,18 +60,12 @@
|
||||||
|
|
||||||
;;;;
|
;;;;
|
||||||
|
|
||||||
(deftype SqlArray [values _meta]
|
(defrecord SqlArray [values])
|
||||||
Object
|
|
||||||
(hashCode [this] (hash-combine (hash (class this)) (hash values)))
|
|
||||||
(equals [_ x] (and (instance? SqlArray x) (= values (.values ^SqlArray x))))
|
|
||||||
clojure.lang.IObj
|
|
||||||
(meta [_] _meta)
|
|
||||||
(withMeta [_ m] (SqlArray. values m)))
|
|
||||||
|
|
||||||
(defn array
|
(defn array
|
||||||
"Represents a SQL array."
|
"Represents a SQL array."
|
||||||
[values]
|
[values]
|
||||||
(SqlArray. values nil))
|
(SqlArray. values))
|
||||||
|
|
||||||
(defn array-vals [^SqlArray a]
|
(defn array-vals [^SqlArray a]
|
||||||
(.values a))
|
(.values a))
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue