From 0013d5b66019a96c809d28c96a0d3555694b1de2 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 3 Jan 2014 14:51:32 -0400
Subject: wanted, schedule: Avoid printing "ok" after requested value.

---
 Command/Schedule.hs | 3 +++
 Command/Wanted.hs   | 3 +++
 2 files changed, 6 insertions(+)

(limited to 'Command')

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
-- 
cgit v1.2.3