 
 (defn- build-url
   [& {:keys [key value ttl prev-val]}]
-  (cond-> base-url
+  (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"))))


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

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

(defn connect!
