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/NumCopies.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/NumCopies.hs')
| -rw-r--r-- | Command/NumCopies.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Command/NumCopies.hs b/Command/NumCopies.hs index 005a0d16a..9e467da7a 100644 --- a/Command/NumCopies.hs +++ b/Command/NumCopies.hs @@ -10,10 +10,9 @@ module Command.NumCopies where import Command import qualified Annex import Annex.NumCopies -import Types.Messages cmd :: Command -cmd = command "numcopies" SectionSetup +cmd = noMessages $ command "numcopies" SectionSetup "configure desired number of copies" paramNumber (withParams seek) @@ -35,7 +34,6 @@ start _ = giveup "Specify a single number." startGet :: CommandStart startGet = next $ next $ do - Annex.setOutput QuietOutput v <- getGlobalNumCopies case v of Just n -> liftIO $ putStrLn $ show $ fromNumCopies n @@ -49,6 +47,7 @@ startGet = next $ next $ do startSet :: Int -> CommandStart startSet n = do + allowMessages showStart "numcopies" (show n) next $ next $ do setGlobalNumCopies $ NumCopies n |