       {: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)

    {:status 404}))

(defn list-all [request]
  (wc/connect!)
  {:status 200
   :body (html [:body
                [:ul
