diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-09-01 13:35:07 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-09-01 13:35:07 -0400 |
| commit | 57dd34c6be5dbc01286108fd943ff9e02956e8aa (patch) | |
| tree | 7071f2ded704a447fb2918ff3e0ca4d84bac03cc /Options.hs | |
| parent | 55783d886d3300555d4b68ff7323e2365928e059 (diff) | |
generalize quiet flag to output type
This will allow adding other styles of output.
Diffstat (limited to 'Options.hs')
| -rw-r--r-- | Options.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Options.hs b/Options.hs index 7f78f44f6..768a1c289 100644 --- a/Options.hs +++ b/Options.hs @@ -26,9 +26,9 @@ commonOptions = "allow actions that may lose annexed data" , Option ['F'] ["fast"] (NoArg (setfast True)) "avoid slow operations" - , Option ['q'] ["quiet"] (NoArg (setquiet True)) + , Option ['q'] ["quiet"] (NoArg (setoutput Annex.QuietOutput)) "avoid verbose output" - , Option ['v'] ["verbose"] (NoArg (setquiet False)) + , Option ['v'] ["verbose"] (NoArg (setoutput Annex.NormalOutput)) "allow verbose output (default)" , Option ['d'] ["debug"] (NoArg (setdebug)) "show debug messages" @@ -38,7 +38,7 @@ commonOptions = where setforce v = Annex.changeState $ \s -> s { Annex.force = v } setfast v = Annex.changeState $ \s -> s { Annex.fast = v } - setquiet v = Annex.changeState $ \s -> s { Annex.quiet = v } + setoutput v = Annex.changeState $ \s -> s { Annex.output = v } setforcebackend v = Annex.changeState $ \s -> s { Annex.forcebackend = Just v } setdebug = liftIO $ updateGlobalLogger rootLoggerName $ setLevel DEBUG |