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

Don't assume id is a string (most of the time it is not)

Browse source
This commit is contained in:
Michael S. Klishin 2011-09-14 14:01:20 +04:00
parent 7227bd6436
commit 3e8e5d7b32
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/monger/collection.clj
View file

@ -91,20 +91,20 @@
;; ;;
(defn ^DBObject find-by-id (defn ^DBObject find-by-id
([^String collection, ^String id] ([^String collection, id]
(let [#^DBCollection coll (.getCollection monger.core/*mongodb-database* collection)] (let [#^DBCollection coll (.getCollection monger.core/*mongodb-database* collection)]
(.findOne coll (to-db-object { :_id id })))) (.findOne coll (to-db-object { :_id id }))))
([^String collection, ^String id, ^List fields] ([^String collection, id, ^List fields]
(let [#^DBCollection coll (.getCollection monger.core/*mongodb-database* collection) (let [#^DBCollection coll (.getCollection monger.core/*mongodb-database* collection)
map-of-fields (fields-to-db-object fields)] map-of-fields (fields-to-db-object fields)]
(.findOne #^DBCollection coll #^DBObject (to-db-object { :_id id }) #^DBObject (to-db-object map-of-fields))))) (.findOne #^DBCollection coll #^DBObject (to-db-object { :_id id }) #^DBObject (to-db-object map-of-fields)))))
(defn ^IPersistentMap find-map-by-id (defn ^IPersistentMap find-map-by-id
([^String collection, ^String id] ([^String collection, id]
(from-db-object ^DBObject (find-by-id collection id) true)) (from-db-object ^DBObject (find-by-id collection id) true))
([^String collection, ^String id, keywordize] ([^String collection, id, keywordize]
(from-db-object ^DBObject (find-by-id collection id) keywordize)) (from-db-object ^DBObject (find-by-id collection id) keywordize))
([^String collection, ^String id, ^List fields, keywordize] ([^String collection, id, ^List fields, keywordize]
(from-db-object ^DBObject (find-by-id collection id fields) keywordize))) (from-db-object ^DBObject (find-by-id collection id fields) keywordize)))