mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

annex.debug can now be set to enable debug logging by default. The webapp's debugging check box does this.

Browse source
This commit is contained in:
Joey Hess 2013-06-17 20:41:17 -04:00
parent 9200e9a5f9
commit fa1c1e0f65
7 changed files with 33 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Option.hs
View file

@ -16,7 +16,6 @@ module Option (
) where
import System.Console.GetOpt
import System.Log.Logger
import Common.Annex
import qualified Annex
@ -40,6 +39,8 @@ common =
"enable JSON output"
, Option ['d'] ["debug"] (NoArg setdebug)
"show debug messages"
, Option [] ["no-debug"] (NoArg unsetdebug)
"don't show debug messages"
, Option ['b'] ["backend"] (ReqArg setforcebackend paramName)
"specify key-value backend to use"
]
@ -48,7 +49,8 @@ common =
setfast v = Annex.changeState $ \s -> s { Annex.fast = v }
setauto v = Annex.changeState $ \s -> s { Annex.auto = v }
setforcebackend v = Annex.changeState $ \s -> s { Annex.forcebackend = Just v }
setdebug = liftIO $ updateGlobalLogger rootLoggerName $ setLevel DEBUG
setdebug = Annex.changeGitConfig $ \c -> c { annexDebug = True }
unsetdebug = Annex.changeGitConfig $ \c -> c { annexDebug = False }
matcher :: [Option]
matcher =