Changed the order of args for some fns in compute2.clj. ComputeService should be the first arg

This commit is contained in:
Mattias Holmqvist 2011-05-11 00:55:21 +02:00
parent cb5f8ab0e0
commit 6c4294ed1c
1 changed files with 4 additions and 4 deletions

View File

@ -197,7 +197,7 @@ Here's an example of creating and running a small linux node in the group webser
(defn suspend-node (defn suspend-node
"Suspend a node, given its id." "Suspend a node, given its id."
([id #^ComputeService compute] ([#^ComputeService compute id]
(.suspendNode compute id))) (.suspendNode compute id)))
(defn resume-nodes-matching (defn resume-nodes-matching
@ -208,7 +208,7 @@ Here's an example of creating and running a small linux node in the group webser
(defn resume-node (defn resume-node
"Resume a node, given its id." "Resume a node, given its id."
([id #^ComputeService compute] ([#^ComputeService compute id]
(.resumeNode compute id))) (.resumeNode compute id)))
(defn reboot-nodes-matching (defn reboot-nodes-matching
@ -219,7 +219,7 @@ Here's an example of creating and running a small linux node in the group webser
(defn reboot-node (defn reboot-node
"Reboot a node, given its id." "Reboot a node, given its id."
([id #^ComputeService compute] ([#^ComputeService compute id]
(.rebootNode compute id))) (.rebootNode compute id)))
(defn destroy-nodes-matching (defn destroy-nodes-matching
@ -230,7 +230,7 @@ Here's an example of creating and running a small linux node in the group webser
(defn destroy-node (defn destroy-node
"Destroy a node, given its id." "Destroy a node, given its id."
([id #^ComputeService compute] ([#^ComputeService compute id]
(.destroyNode compute id))) (.destroyNode compute id)))
(defmacro state-predicate [node state] (defmacro state-predicate [node state]