logging 3.0.4 → 3.0.5

raw patch · 2 files changed

+3/−6 lines, 2 files

Files

Control/Logging.hs +2/−5
logging.cabal +1/−1

Control/Logging.hs view

@@ -101,7 +101,7 @@  logTimeFormat :: IORef String {-# NOINLINE logTimeFormat #-}-logTimeFormat = unsafePerformIO $ newIORef "%Y %b-%d %H:%M:%S%q"+logTimeFormat = unsafePerformIO $ newIORef "%T"  -- | Set the format used for log timestamps. setLogTimeFormat :: String -> IO ()@@ -132,10 +132,7 @@         when willLog $ do             now <- getCurrentTime             fmt <- readIORef logTimeFormat-            let stamp' = formatTime defaultTimeLocale fmt now-                -- stripping off the typically all-0 end of the 12-digit-                -- picosecond section of the `formatTime` output-                stamp = Prelude.take (Prelude.length stamp' - 6) stamp'+            let stamp = formatTime defaultTimeLocale fmt now             set <- readIORef logSet             pushLogStr set                 $ toLogStr (stamp ++ " " ++ renderLevel lvl

logging.cabal view

@@ -1,5 +1,5 @@ Name:                logging-Version:             3.0.4+Version:             3.0.5 Synopsis:            Simplified logging in IO for application writers. License-file:        LICENSE License:             MIT