group: When no groups are specified to set, lists the current groups of a repository.

1 files changed, 7 insertions, 3 deletions

diff --git a/Command/Group.hs b/Command/Group.hs
index b0dbc1465..2b5cd2ec4 100644
--- a/Command/Group.hs
+++ b/Command/Group.hs
@@ -26,10 +26,14 @@ start :: [String] -> CommandStart
 start (name:g:[]) = do
 	showStart "group" name
 	u <- Remote.nameToUUID name
-	next $ perform u g
+	next $ setGroup u g
+start (name:[]) = do
+	u <- Remote.nameToUUID name
+	showRaw . unwords . S.toList =<< lookupGroups u
+	stop
 start _ = error "Specify a repository and a group."
 
-perform :: UUID -> Group -> CommandPerform
-perform uuid g = do
+setGroup :: UUID -> Group -> CommandPerform
+setGroup uuid g = do
 	groupChange uuid (S.insert g) 
 	next $ return True