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

log alerts in notice mode, which is enabled by default

Browse source
This commit is contained in:
Joey Hess 2013-01-15 14:34:39 -04:00
parent 85c8b222a0
commit b635d99f66
4 changed files with 27 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Option.hs
View file

@ -17,9 +17,6 @@ module Option (
import System.Console.GetOpt
import System.Log.Logger
import System.Log.Formatter
import System.Log.Handler (setFormatter, LogHandler)
import System.Log.Handler.Simple
import Common.Annex
import qualified Annex
@ -51,13 +48,7 @@ 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 $ do
s <- simpledebug
updateGlobalLogger rootLoggerName
(setLevel DEBUG . setHandlers [s])
simpledebug = setFormatter
<$> streamHandler stderr DEBUG
<*> pure (simpleLogFormatter "[$time] $msg")
setdebug = liftIO $ updateGlobalLogger rootLoggerName $ setLevel DEBUG
matcher :: [Option]
matcher =