diff options
author | 2011-05-21 11:52:13 -0400 | |
---|---|---|
committer | 2011-05-21 11:52:13 -0400 | |
commit | 93a4f3d4e6970b05116fc25b8d57f0dd9d9ec675 (patch) | |
tree | 27af97e123c3b22f4eb6e19afa7bca6ec9f2891f /Options.hs | |
parent | 1876db50f258a1a6a67d874049e93a84d34cac32 (diff) |
Add --debug option. Closes: #627499
This takes advantage of the debug logging done by missingh, and I added
my own debug messages for executeFile calls. There are still some other
low-level ways git-annex runs stuff that are not shown by debugging,
but this gets most of it easily.
Diffstat (limited to 'Options.hs')
-rw-r--r-- | Options.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Options.hs b/Options.hs index ae5707e4a..f8dbfb6bc 100644 --- a/Options.hs +++ b/Options.hs @@ -8,6 +8,8 @@ module Options where import System.Console.GetOpt +import System.Log.Logger +import Control.Monad.State (liftIO) import qualified Annex import Types @@ -27,7 +29,9 @@ commonOptions = , Option ['q'] ["quiet"] (NoArg (setquiet True)) "avoid verbose output" , Option ['v'] ["verbose"] (NoArg (setquiet False)) - "allow verbose output" + "allow verbose output (default)" + , Option ['d'] ["debug"] (NoArg (setdebug)) + "show debug messages" , Option ['b'] ["backend"] (ReqArg setforcebackend paramName) "specify key-value backend to use" ] @@ -36,3 +40,4 @@ commonOptions = setfast v = Annex.changeState $ \s -> s { Annex.fast = v } setquiet v = Annex.changeState $ \s -> s { Annex.quiet = v } setforcebackend v = Annex.changeState $ \s -> s { Annex.forcebackend = Just v } + setdebug = liftIO $ updateGlobalLogger "" $ setLevel DEBUG |