Apache/jclouds
1
0
Fork 0
mirror of https://github.com/apache/jclouds.git synced 2025-02-17 15:35:44 +00:00
Code Issues Packages Projects Releases Wiki Activity

Removed extra parentheses

Browse Source
This commit is contained in:
Hugo Duncan 2010-05-17 18:14:25 -04:00
parent 586367f6f2
commit bf3e66a6b2
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
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 (defn nodes-with-tag
[#^String tag #^ComputeService compute] [#^String tag #^ComputeService compute]
(seq (.listNodesMatching(compute (NodePredicates/withTag tag))))) (seq (.listNodesMatching compute (NodePredicates/withTag tag))))
(defn nodes (defn nodes
"Retrieve the existing nodes for the compute context." "Retrieve the existing nodes for the compute context."
@ -210,14 +210,14 @@ See http://code.google.com/p/jclouds for details."
"Retrieve the node metadata." "Retrieve the node metadata."
([location id] (node-details location id *compute*)) ([location id] (node-details location id *compute*))
([#^Location location id #^ComputeService compute] ([#^Location location id #^ComputeService compute]
(.getNodeMetadata compute location id))) (.getNodeMetadata compute location id)))
(defn reboot-nodes-with-tag (defn reboot-nodes-with-tag
"Reboot all the nodes with the given tag." "Reboot all the nodes with the given tag."
([tag] (reboot-nodes-with-tag tag *compute*)) ([tag] (reboot-nodes-with-tag tag *compute*))
([#^String tag #^ComputeService compute] ([#^String tag #^ComputeService compute]
(.rebootNodesMatching(compute (NodePredicates/withTag tag))))) (.rebootNodesMatching compute (NodePredicates/withTag tag))))
(defn reboot-node (defn reboot-node
"Reboot a given node." "Reboot a given node."
([location id] (reboot-node location id *compute*)) ([location id] (reboot-node location id *compute*))
@ -228,8 +228,8 @@ See http://code.google.com/p/jclouds for details."
"Destroy all the nodes with the given tag." "Destroy all the nodes with the given tag."
([tag] (destroy-nodes-with-tag tag *compute*)) ([tag] (destroy-nodes-with-tag tag *compute*))
([#^String tag #^ComputeService compute] ([#^String tag #^ComputeService compute]
(seq (.destroyNodesMatching(compute (NodePredicates/withTag tag)))))) (.destroyNodesMatching compute (NodePredicates/withTag tag))))
(defn destroy-node (defn destroy-node
"Destroy a given node." "Destroy a given node."
([location id] (destroy-node location id *compute*)) ([location id] (destroy-node location id *compute*))