Eliminate some reflection via adding type hints, and correcting one

This commit is contained in:
Andy Fingerhut 2013-04-13 16:18:22 -07:00
parent d5b0e2c8be
commit 0bd3ef12ab

View file

@ -26,7 +26,7 @@
(defrecord ClojureReaderBasedMongoDBSessionStore [^String collection-name])
(defmethod print-dup java.util.Date
[^java.util.Date d ^java.io.OutputStream out]
[^java.util.Date d ^java.io.Writer out]
(.write out
(str "#="
`(java.util.Date. ~(.getYear d)
@ -37,7 +37,7 @@
~(.getSeconds d)))))
(defmethod print-dup org.bson.types.ObjectId
[oid out]
[oid ^java.io.Writer out]
(.write out
(str "#="
`(org.bson.types.ObjectId. ~(str oid)))))
@ -101,4 +101,4 @@
([]
(MongoDBSessionStore. default-session-store-collection))
([^String s]
(MongoDBSessionStore. s)))
(MongoDBSessionStore. s)))