diff options
author | Joey Hess <joey@kitenet.net> | 2014-01-03 14:51:32 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-01-03 14:51:32 -0400 |
commit | 0013d5b66019a96c809d28c96a0d3555694b1de2 (patch) | |
tree | be86e519a6656e19e79936a3219d58db577a5849 /Command/Schedule.hs | |
parent | b43f518dcaa6eee106f41f9884dc73721becd769 (diff) |
wanted, schedule: Avoid printing "ok" after requested value.
Diffstat (limited to 'Command/Schedule.hs')
-rw-r--r-- | Command/Schedule.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Command/Schedule.hs b/Command/Schedule.hs index 35f144c75..db654f291 100644 --- a/Command/Schedule.hs +++ b/Command/Schedule.hs @@ -8,10 +8,12 @@ module Command.Schedule where import Common.Annex +import qualified Annex import Command import qualified Remote import Logs.Schedule import Types.ScheduledActivity +import Types.Messages import qualified Data.Set as S @@ -37,6 +39,7 @@ start = parse performGet :: UUID -> CommandPerform performGet uuid = do + Annex.setOutput QuietOutput s <- scheduleGet uuid liftIO $ putStrLn $ intercalate "; " $ map fromScheduledActivity $ S.toList s |