   (.getDB connection (keyword-str db-name)))
 
 (defn drop-db [#^DBObject db]
-    (.dropDatabase db))
+  (.dropDatabase db))
 
 (defn list-collections [#^Mongo db]
   (map keyword (.getCollectionNames db)))

  ([collection query obj]
      (update collection query obj :multi)))

(defn- search* [#^DBCollection collection query include exclude  limit skip sort count?]
  (let [cursor (if query
                 (if (or include exclude)
                   (let [keys (merge (zipmap (remove nil? include)

      (.count cursor)
      (map to-clj cursor))))

(defnk fetch-all
  "Fetch all the documents of a collection. Same options as fetch."
  [collection :limit nil :skip nil :include nil :exclude nil :sort nil :count false]
  (fetch collection
         nil
         include
         exclude
         limit
         skip
         sort
         count))

(defnk fetch-one
  "Fetch one document of a collection. Supports same options as fetch except :limit and :count"
  [collection query :skip nil :include nil :exclude nil :sort nil]
  (first (fetch collection
                query
                include
                exclude
                1
                skip
                sort
                false)))

(defn count-docs
  "Returns the count of documents, optionally, matching a query"
