From 228a1b256ca9693be69503935ea4157f82b63e12 Mon Sep 17 00:00:00 2001 From: "Michael S. Klishin" Date: Mon, 15 Aug 2011 00:20:21 +0400 Subject: [PATCH] Extract 2 variables --- src/monger/collection.clj | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/monger/collection.clj b/src/monger/collection.clj index ee4120e..b256fdc 100644 --- a/src/monger/collection.clj +++ b/src/monger/collection.clj @@ -49,12 +49,14 @@ (defn ^DBObject find-by-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] - (let [n (count fields) + (let [^DBCollection coll (.getCollection monger.core/*mongodb-database* collection) + n (count fields) ones (replicate 10 1) 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)))) )