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

Extract 2 variables

Browse source
This commit is contained in:
Michael S. Klishin 2011-08-15 00:20:21 +04:00
parent 14a0aa515c
commit 228a1b256c
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/monger/collection.clj
View file

@ -49,12 +49,14 @@
(defn ^DBObject find-by-id (defn ^DBObject find-by-id
([^String collection, ^String id] ([^String collection, ^String id]
(.findOne (.getCollection monger.core/*mongodb-database* collection) (to-db-object { :_id id }))) (let [^DBCollection coll (.getCollection monger.core/*mongodb-database* collection)]
(.findOne coll (to-db-object { :_id id }))))
([^String collection, ^String id, ^List fields] ([^String collection, ^String id, ^List fields]
(let [n (count fields) (let [^DBCollection coll (.getCollection monger.core/*mongodb-database* collection)
n (count fields)
ones (replicate 10 1) ones (replicate 10 1)
map-of-fields (zipmap fields ones)] map-of-fields (zipmap fields ones)]
(.findOne (.getCollection monger.core/*mongodb-database* collection) (to-db-object { :_id id }) (to-db-object map-of-fields)))) (.findOne coll (to-db-object { :_id id }) (to-db-object map-of-fields))))
) )