diff options
author | Joey Hess <joey@kitenet.net> | 2012-07-20 19:29:59 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-07-20 19:29:59 -0400 |
commit | b48d7747a3ac8bea7d58e8fff8faf791f98699c0 (patch) | |
tree | f5662f9161fd3c74c2f6467be270651d92ac3ead /Option.hs | |
parent | 42e73537d1977eac2da2760647e9131f5c9b9eed (diff) |
debugging improvements
add timestamps to debug messages
Add lots of debug output in the assistant's threads.
Diffstat (limited to 'Option.hs')
-rw-r--r-- | Option.hs | 12 |
1 files changed, 10 insertions, 2 deletions
@@ -17,6 +17,9 @@ 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 @@ -48,8 +51,13 @@ 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 = liftIO $ do + s <- simpledebug + updateGlobalLogger rootLoggerName + (setLevel DEBUG . setHandlers [s]) + simpledebug = setFormatter + <$> streamHandler stderr DEBUG + <*> pure (simpleLogFormatter "[$time] $msg") matcher :: [Option] matcher = |