     (when-done f #(callback %)) f))
 
 (defn stats
-  ""
+  "Leader stats"
   []
   (parse-string (:body (client/get (str (base-url) "/stats/leader")))))
 
 (defn self-stats
-  ""
+  "Self Stats"
   []
   (parse-string(:body (client/get (str (base-url) "/stats/self")))))
 
 (defn store-stats
-  ""
+  "Store stats"
   []
   (parse-string (:body (client/get (str (base-url) "/stats/store")))))
 
 (defn machines
+  "Machines"
   []
-  (println (str (admin-base-url) api-version "/admin/machines"))
   (parse-string (:body (client/get (str (admin-base-url) "/admin/machines")))))
 
 (defn get-config
-  ""
+  "Gets the config"
   []
   (parse-string (:body (client/get (str (admin-base-url) "/admin/config")))))
 
 (defn get-version
-  ""
+  "Gets the etcd server version"
   []
   (:body (client/get (str @endpoint "/version"))))

  (clojure.core/get-in (parse-string (:body (client/get (str (base-url) "/keys/" key)))) ["node" "value"]))

(defn delete
  [key]
  (parse-string (:body (client/delete (str (base-url) "/keys/" key)))))

(defn delete-dir
  [key]
  (parse-string (:body (client/delete (str (base-url) "/keys/" key "?dir=true")))))

(defn delete-dir-recur
  [key]
  (parse-string (:body (client/delete (str (base-url) "/keys/" key "?dir=true&recursive=true")))))

(defn watch
  [key callback]

  (reset! endpoint (format "http://%s:4001" etcd-server-host))
  (reset! admin-endpoint (format "http://%s:7001" etcd-server-host)))

(defn- when-done [future-to-watch function-to-call]
  (future (function-to-call @future-to-watch)))

