diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-07-30 20:24:27 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-07-30 20:24:27 -0400 |
| commit | 95b50b5e919bccccca3ae666f4d5e9d1418ca396 (patch) | |
| tree | 790a8f014cf2e6c4347cfc64b24428688c8f78fd /CmdLine.hs | |
| parent | 8b7b8bcd15d3a8bdd237ba0c0a8c0cb3415a07a1 (diff) | |
find: Avoid polluting stdout with progress messages. Closes: #718186
Diffstat (limited to 'CmdLine.hs')
| -rw-r--r-- | CmdLine.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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 |