 
 (defn get-all-users
   "Retrieve all users"
-  []
+  [conn]
   (map
    first
    (d/q '[:find ?email


(defn get-all-bookmarks
  "Retrieve all bookmarks"
  []
  (map
   #(zipmap [:url :title :user] %)
   (d/q '[:find ?url ?title ?email

       :bookmark/title title
       :bookmark/user uid}])))

(defn get-bookmark [conn {:keys [url email]}]
  (let [query '[:find ?url ?title ?tx
               :in $ ?url ?email
               :where
