 
 (def ^:private api-version "v1")
 
-(def ^:private base-url
+(defn ^:private base-url
+  []
   (str @endpoint "/" api-version))
 
 (defn connect!


(defn watch
  [key callback]
  (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)
