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/GroupWanted.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/GroupWanted.hs')
-rw-r--r-- | Command/GroupWanted.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Command/GroupWanted.hs b/Command/GroupWanted.hs index c0be2462d..939b3030a 100644 --- a/Command/GroupWanted.hs +++ b/Command/GroupWanted.hs @@ -12,7 +12,7 @@ import Logs.PreferredContent import Command.Wanted (performGet, performSet) cmd :: Command -cmd = command "groupwanted" SectionSetup +cmd = noMessages $ command "groupwanted" SectionSetup "get or set groupwanted expression" (paramPair paramGroup (paramOptional paramExpression)) (withParams seek) @@ -23,6 +23,7 @@ seek = withWords start start :: [String] -> CommandStart start (g:[]) = next $ performGet groupPreferredContentMapRaw g start (g:expr:[]) = do + allowMessages showStart "groupwanted" g next $ performSet groupPreferredContentSet expr g start _ = giveup "Specify a group." |