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


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

(defn machines


(def ^:private api-version "v1")

(defn ^:private base-url
  []
  (str @endpoint "/" api-version))

(defn connect!
