restore no-arg compute/nodes overload

This commit is contained in:
Chas Emerick 2010-05-14 13:15:10 -04:00
parent 20c282c8bc
commit 586367f6f2
1 changed files with 3 additions and 2 deletions

View File

@ -127,8 +127,9 @@ See http://code.google.com/p/jclouds for details."
(defn nodes (defn nodes
"Retrieve the existing nodes for the compute context." "Retrieve the existing nodes for the compute context."
[#^ComputeService compute] ([] (nodes *compute*))
(seq (.listNodes compute))) ([#^ComputeService compute]
(seq (.listNodes compute))))
(defn images (defn images
"Retrieve the available images for the compute context." "Retrieve the available images for the compute context."