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

Remove type hints that can be inferred by the compiler, part 3

Browse source
This commit is contained in:
Michael S. Klishin 2012-06-09 00:36:07 +04:00
parent 5813f61649
commit 12f48b058b
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/monger/query.clj
View file

@ -20,7 +20,7 @@
;; Implementation
;;
(def ^{ :dynamic true } *query-collection*)
(def ^{:dynamic true} *query-collection*)
;;
;; Cursor/chain methods
@ -59,13 +59,13 @@
(merge (empty-query) { :collection coll })))
(defn exec
[{ :keys [collection query fields skip limit sort batch-size hint snapshot read-preference keywordize-fields] :or { limit 0 batch-size 256 skip 0 } }]
(let [cursor (doto ^DBCursor (.find ^DBCollection collection (to-db-object query) (as-field-selector fields))
[{ :keys [^DBCollection collection query fields skip limit sort batch-size hint snapshot read-preference keywordize-fields] :or { limit 0 batch-size 256 skip 0 } }]
(let [cursor (doto (.find collection (to-db-object query) (as-field-selector fields))
(.limit limit)
(.skip skip)
(.sort (to-db-object sort))
(.batchSize batch-size)
(.hint ^DBObject (to-db-object hint)))]
(.hint (to-db-object hint)))]
(when snapshot
(.snapshot cursor))
(when read-preference