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/Schedule.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/Schedule.hs')
| -rw-r--r-- | Command/Schedule.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/Command/Schedule.hs b/Command/Schedule.hs index c9d4f915f..5814d99f1 100644 --- a/Command/Schedule.hs +++ b/Command/Schedule.hs @@ -8,16 +8,14 @@ module Command.Schedule where import Command -import qualified Annex import qualified Remote import Logs.Schedule import Types.ScheduledActivity -import Types.Messages import qualified Data.Set as S cmd :: Command -cmd = command "schedule" SectionSetup "get or set scheduled jobs" +cmd = noMessages $ command "schedule" SectionSetup "get or set scheduled jobs" (paramPair paramRemote (paramOptional paramExpression)) (withParams seek) @@ -29,6 +27,7 @@ start = parse where parse (name:[]) = go name performGet parse (name:expr:[]) = go name $ \uuid -> do + allowMessages showStart "schedule" name performSet expr uuid parse _ = giveup "Specify a repository." @@ -39,7 +38,6 @@ start = parse performGet :: UUID -> CommandPerform performGet uuid = do - Annex.setOutput QuietOutput s <- scheduleGet uuid liftIO $ putStrLn $ intercalate "; " $ map fromScheduledActivity $ S.toList s |