   (revoke! [this t]
     (when t
       (mc/remove-by-id mongo-db coll t)))
-  (store! [this k item]
+  (store! [this _ item]
     (-> (mc/insert-and-return mongo-db coll (assoc item :_id (k item)))
         (dissoc :_id)))
   (entries [this]

  (query [e query]
    "Items are returned using a query map"))

(defrecord MongoStore [mongo-db coll]
  cl-s/Store
  (fetch [this t]
    (when t

  ([data]
   (MemoryStore. (atom data))))

(defn new-mongo-store [mongo-db coll k]
  (MongoStore. mongo-db coll k))

(defn get-mongo-db [mongo-uri]
  (log/debug "Connecting to mongo")
