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

Close DBCursors in find-maps/find-seq

Browse source
This commit is contained in:
Tom McNulty 2013-01-10 20:32:48 -07:00
parent 175f17af97
commit a121598651
1 changed files with 16 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
src/clojure/monger/collection.clj
View file

@ -164,24 +164,32 @@
If you want to work directly with DBObject, use find.
"
([^String collection]
(map (fn [x] (from-db-object x true)) (find collection)))
(with-open [dbc (find collection)]
(map (fn [x] (from-db-object x true)) dbc)))
([^String collection ^Map ref]
(map (fn [x] (from-db-object x true)) (find collection ref)))
(with-open [dbc (find collection ref)]
(map (fn [x] (from-db-object x true)) dbc)))
([^String collection ^Map ref fields]
(map (fn [x] (from-db-object x true)) (find collection ref fields)))
(with-open [dbc (find collection ref fields)]
(map (fn [x] (from-db-object x true)) dbc)))
([^DB db ^String collection ^Map ref fields]
(map (fn [x] (from-db-object x true)) (find db collection ref fields))))
(with-open [dbc (find db collection ref fields)]
(map (fn [x] (from-db-object x true)) dbc))))
(defn find-seq
"Queries for objects in this collection, returns ISeq of DBObjects."
([^String collection]
(seq (find collection)))
(with-open [dbc (find collection)]
(seq dbc)))
([^String collection ^Map ref]
(seq (find collection ref)))
(with-open [dbc (find collection ref)]
(seq dbc)))
([^String collection ^Map ref fields]
(seq (find collection ref fields)))
(with-open [dbc (find collection ref fields)]
(seq dbc)))
([^DB db ^String collection ^Map ref fields]
(seq (find db collection ref fields))))
(with-open [dbc (find db collection ref fields)]
(seq dbc))))
;;
;; monger.collection/find-one