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

Simplify finders that use document id

Browse source
This commit is contained in:
Michael S. Klishin 2011-09-14 14:11:56 +04:00
parent 5145f45afa
commit 3e6a6fac44
1 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/monger/collection.clj
View file

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