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

1 files changed, 3 insertions, 0 deletions

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