Removed extra parentheses

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

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