Apache
/
jclouds
mirror of https://github.com/apache/jclouds.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fixed nodes-with-tag. Added nodes-with-details.

This commit is contained in:
Hugo Duncan 2010-05-25 15:32:59 -04:00
parent 37aa405b0a
commit 86f8818ee8
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compute/src/main/clojure/org/jclouds/compute.clj
View File

@ -123,7 +123,7 @@ See http://code.google.com/p/jclouds for details."
(defn nodes-with-tag
[#^String tag #^ComputeService compute]
(seq (.listNodesMatching compute (NodePredicates/withTag tag))))
(seq (.listNodesDetailsMatching compute (NodePredicates/withTag tag))))
(defn nodes
"Retrieve the existing nodes for the compute context."
@ -131,6 +131,12 @@ See http://code.google.com/p/jclouds for details."
([#^ComputeService compute]
(seq (.listNodes compute))))
(defn nodes-with-details
"Retrieve the existing nodes for the compute context."
([] (nodes *compute*))
([#^ComputeService compute]
(seq (.listNodesDetailsMatching compute (NodePredicates/all)))))
(defn images
"Retrieve the available images for the compute context."
([] (images *compute*))