       {:status 400})))
 
 (defn handle-get [request]
+  (wc/connect!)
   (if-let [url (-> request
                    (get-in [:params :url])
                    (get-entry)

    [k (map :url v)]))

(defn get-all-entries []
  (let [keys (wb/keys-in bucket)]
    (->> "all"
         (kv/index-query bucket :all)

         (merge-urls))))

(defn handle-post [request]
  (wc/connect!)
  (let [body    (:body request)
        url     (body "url")
        channel (body "channel")
