 
 (defn delete-instances [instances]
   (doseq [i instances]
-    (let [{host :host, id :id} i
-          cli (docker/make-client (str (urly/host-of (urly/url-like host)) ":4243"))]
+    (let [{:keys [docker-host id]} i
+          cli (docker/make-client docker-host)]
       (container/stop cli id)
       (container/remove cli id))))
 

               :cmd command
               :port-bindings {host-port port})
          upstream (upstream-url cli host-port)]
      {:id id, :host upstream})))

(defn create [app-name user image & {:keys [tag command port ps]}]
  (let [ps (or ps 1)

            [dokkaa-builder.clusters :as clusters]
            [dokkaa-builder.redis :refer [wcar*]]
            [clojurewerkz.urly.core :as urly]
            [taoensso.carmine :as redis]
            ))

