diff options
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Schedule.hs | 3 | ||||
| -rw-r--r-- | Command/Wanted.hs | 3 |
2 files changed, 6 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 diff --git a/Command/Wanted.hs b/Command/Wanted.hs index a7b4a3d9e..9ea0c211f 100644 --- a/Command/Wanted.hs +++ b/Command/Wanted.hs @@ -8,9 +8,11 @@ module Command.Wanted where import Common.Annex +import qualified Annex import Command import qualified Remote import Logs.PreferredContent +import Types.Messages import qualified Data.Map as M @@ -36,6 +38,7 @@ start = parse performGet :: UUID -> CommandPerform performGet uuid = do + Annex.setOutput QuietOutput m <- preferredContentMapRaw liftIO $ putStrLn $ fromMaybe "" $ M.lookup uuid m next $ return True |