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

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
+setGroup :: UUID -> Group -> CommandPerform
-perform uuid g = do
+setGroup uuid g = do
 	groupChange uuid (S.insert g) 
 	next $ return True

debian/changelog

@@ -12,6 +12,8 @@ git-annex (5.20140422) UNRELEASED; urgency=medium
   * Added ddar special remote.
     Thanks, Robie Basak.
   * webapp: Fixed drag and drop to reorder the list of remotes.
+  * group: When no groups are specified to set, lists the current groups
+    of a repository.
 
  -- Joey Hess <joeyh@debian.org>  Fri, 02 May 2014 15:28:53 -0300
 

doc/git-annex.mdwn

@@ -456,6 +456,8 @@ subdirectories).
   Adds a repository to a group, such as "archival", "enduser", or "transfer".
   The groupname must be a single word.
 
+  Omit the groupname to show the current groups that a repository is in.
+
 * `ungroup repository groupname`
 
   Removes a repository from a group.

doc/todo/wishlist:_git_annex_group_remote_return_the_group.mdwn

@@ -7,3 +7,5 @@ It would be good if the command
 returned the current list of groups the repository belongs to...(can it belong to more than one?)
 
 Currently the command requires an additional parameter to set the group.
+
+> [[done]] --[[Joey]]