diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-08-12 14:42:49 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-08-12 14:42:49 -0400 |
commit | 7584e47ba366240c1e9fa7acb6e3ab2bc109eaaa (patch) | |
tree | 9e3d2077290fb14d38c6d2439647ffb9b866405a /Messages.hs | |
parent | 626d2732403d86d1fa52977a27a6c898fabd266d (diff) |
--debug log messages are now timestamped with fractional seconds.
Diffstat (limited to 'Messages.hs')
-rw-r--r-- | Messages.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Messages.hs b/Messages.hs index f6d26db9d6..c6d033402d 100644 --- a/Messages.hs +++ b/Messages.hs @@ -173,7 +173,7 @@ setupConsole :: IO () setupConsole = do s <- setFormatter <$> streamHandler stderr DEBUG - <*> pure (simpleLogFormatter "[$time] $msg") + <*> pure preciseLogFormatter updateGlobalLogger rootLoggerName (setLevel NOTICE . setHandlers [s]) {- This avoids ghc's output layer crashing on - invalid encoded characters in @@ -181,6 +181,10 @@ setupConsole = do fileEncoding stdout fileEncoding stderr +{- Log formatter with precision into fractions of a second. -} +preciseLogFormatter :: LogFormatter a +preciseLogFormatter = tfLogFormatter "%F %X%Q" "[$time] $msg" + enableDebugOutput :: IO () enableDebugOutput = updateGlobalLogger rootLoggerName $ setLevel DEBUG |