From 95b50b5e919bccccca3ae666f4d5e9d1418ca396 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 30 Jul 2013 20:24:27 -0400
Subject: find: Avoid polluting stdout with progress messages. Closes: #718186

---
 CmdLine.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'CmdLine.hs')

diff --git a/CmdLine.hs b/CmdLine.hs
index d9a410369..8cf4d0544 100644
--- a/CmdLine.hs
+++ b/CmdLine.hs
@@ -30,6 +30,7 @@ import Annex.Content
 import Annex.Ssh
 import Annex.Environment
 import Command
+import Types.Messages
 
 type Params = [String]
 type Flags = [Annex ()]
@@ -47,6 +48,8 @@ dispatch fuzzyok allargs allcmds commonoptions fields header getgitrepo = do
 				checkEnvironment
 				checkfuzzy
 				forM_ fields $ uncurry Annex.setField
+				when (cmdnomessages cmd) $ 
+					Annex.setOutput QuietOutput
 				sequence_ flags
 				whenM (annexDebug <$> Annex.getGitConfig) $
 					liftIO enableDebugOutput
-- 
cgit v1.2.3