diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2017-02-16 13:24:16 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-02-16 13:24:35 -0400 |
| commit | 34bcff4cba4a8f866110309ae00bcd4a8deb7551 (patch) | |
| tree | a187a962bb859d8a77ef59c459e5cc2ace0dd795 /Command/Group.hs | |
| parent | b65b8fe7f1b63403e8b1fd1e149e0adb5b00277d (diff) | |
make query commands not output extraneous messages
config group groupwanted numcopies schedule wanted required: Avoid
displaying extraneous messages about repository auto-init, git-annex branch
merging, etc, when being used to get information.
Diffstat (limited to 'Command/Group.hs')
| -rw-r--r-- | Command/Group.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Command/Group.hs b/Command/Group.hs index 6d9b4ab13..65e062589 100644 --- a/Command/Group.hs +++ b/Command/Group.hs @@ -15,7 +15,7 @@ import Types.Group import qualified Data.Set as S cmd :: Command -cmd = command "group" SectionSetup "add a repository to a group" +cmd = noMessages $ command "group" SectionSetup "add a repository to a group" (paramPair paramRemote paramDesc) (withParams seek) seek :: CmdParams -> CommandSeek @@ -23,12 +23,13 @@ seek = withWords start start :: [String] -> CommandStart start (name:g:[]) = do + allowMessages showStart "group" name u <- Remote.nameToUUID name next $ setGroup u g start (name:[]) = do u <- Remote.nameToUUID name - showRaw . unwords . S.toList =<< lookupGroups u + liftIO . putStrLn . unwords . S.toList =<< lookupGroups u stop start _ = giveup "Specify a repository and a group." |