Fix fields selector type

lupapiste · Jan 18, 2020 · 46e3a95 · 46e3a95
1 parent 0d5eb21
commit 46e3a95
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/project.clj b/project.clj
@@ -1,4 +1,4 @@
-(defproject lupapiste/mongocheck "0.1.4-alpha5"
+(defproject lupapiste/mongocheck "0.1.4-alpha6"
   :description "Library for running checks on MongoDB data"
   :url "http://www.solita.fi"
   :license {:name "Eclipse Public License"

diff --git a/src/lupapiste/mongocheck/core.clj b/src/lupapiste/mongocheck/core.clj
@@ -46,10 +46,10 @@
        doall))
 
 (defn- execute-collection-checks [db collection {:keys [columns checks]}]
-  (let [coll-str (name collection)
+  (let [coll-str  (name collection)
         documents (mq/with-collection db coll-str
                     (mq/find {})
-                    (mq/fields columns)
+                    (mq/fields (zipmap columns (repeat 1)))
                     (mq/sort (array-map :modified -1))
                     (mq/limit 10000))
         results   (->> documents