wanted, schedule: Avoid printing "ok" after requested value.

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