diff options
author | 2013-01-15 14:34:39 -0400 | |
---|---|---|
committer | 2013-01-15 14:34:39 -0400 | |
commit | 90a1bf735ec2aef240549c65a714703d33ff07f5 (patch) | |
tree | 1fdeb0e846c15e0dc724213e35d2e8d727f0703b /Option.hs | |
parent | 6dca9e23d3d03539f9f27b0580f5aa9654b6dcec (diff) |
log alerts in notice mode, which is enabled by default
Diffstat (limited to 'Option.hs')
-rw-r--r-- | Option.hs | 11 |
1 files changed, 1 insertions, 10 deletions
@@ -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 = |