     (.networks (openstack :network-ids))
     (.build)))
 
-(defn wait-for-ip  [compute id network timeout]
+(defn wait-for-ip  [servers' id network timeout]
   "Wait for an ip to be avilable"
-  (wait-for {:timeout timeout} #(not (nil? (first-ip (.get compute id) network)))
+  (wait-for {:timeout timeout} #(not (nil? (first-ip (.get servers' id) network)))
     {:type ::openstack:status-failed :timeout timeout} 
       "Timed out on waiting for ip to be available"))
 

(defmethod vconstruct :openstack [spec]
  (apply ->Instance (translate spec)))

(comment 
  (use 'celestial.fixtures.data 'celestial.fixtures.core )
  (def m (vconstruct redis-openstack)) 
  (with-conf local-conf (with-admin (.create m)))
  (with-admin (with-conf local-conf (.status m)))
  (clojure.pprint/pprint 
    (ip (from-java (.get (servers "skywind") "9a7e1ceb-cccd-44b9-b1bc-148a39e913c4")) "playtech-int-2"))
  (.start m)
  )


    [slingshot.slingshot :refer  [throw+]]
    [celestial.persistency.systems :as s]
    [celestial.common :refer (import-logging)]
    [openstack.networking :refer (first-ip update-ip assoc-floating dissoc-floating)]
    [clojure.java.data :refer [from-java]]
    [celestial.provider :refer (wait-for wait-for-ssh)]
    [openstack.validations :refer (provider-validation)]
