diff options
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 |