Make group-name, target functions work for groups

Ensure these session functions work for the group addition and removal phases.
pallet · Aug 12, 2015 · 77886e5 · 77886e5
1 parent 011466a
commit 77886e5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/pallet/core/session.clj b/src/pallet/core/session.clj
@@ -69,7 +69,7 @@
 (defn target
   "Target server."
   [session]
-  (-> session :server))
+  (or (:server session) (:group session)))
 
 (defn target-node
   "Target compute service node."
@@ -122,7 +122,7 @@
 (defn group-name
   "Group name of the target-node."
   [session]
-  (-> session :server :group-name))
+  (:group-name (target session)))
 
 (comment
    (defn safe-name