 
 (defn watch
   [key callback]
-  (let [f (future (parse-string (:body (client/get (str base-url "/watch/" key)))))]
+  (let [f (future (parse-string (:body (client/get (str (base-url) "/watch/" key)))))]
     (when-done f #(callback %)) f))
 
 (defn machines


(defn- build-url
  [& {:keys [key value ttl prev-val]}]
  (cond-> base-url
          key (str "/keys/" key)
          value (str "?value=" value)
          prev-val (str "&prevValue=" prev-val)


(defn leader
  []
  (:body (client/get (str (base-url) "/leader"))))
