fast-logger 3.2.5 → 3.2.6
raw patch · 4 files changed
+9/−3 lines, 4 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- System.Log.FastLogger: [LogCallback] :: (v -> IO ()) -> IO () -> LogType' v
+ System.Log.FastLogger: [LogCallback] :: forall a. (a -> IO ()) -> IO () -> LogType' a
- System.Log.FastLogger: type TimedFastLogger = (FormattedTime -> LogStr) -> IO ()
+ System.Log.FastLogger: type TimedFastLogger = FormattedTime -> LogStr -> IO ()
- System.Log.FastLogger.Internal: data () => Builder
+ System.Log.FastLogger.Internal: data Builder
Files
- ChangeLog.md +4/−0
- System/Log/FastLogger/File.hs +1/−1
- System/Log/FastLogger/SingleLogger.hs +3/−1
- fast-logger.cabal +1/−1
ChangeLog.md view
@@ -1,3 +1,7 @@+## 3.2.6++* Labeling the thread of SingleLogger.+ ## 3.2.5 * Giving names to threads.
System/Log/FastLogger/File.hs view
@@ -83,7 +83,7 @@ n = log_backup_number spec dsts' = reverse . ("" :) . map (('.' :) . show) $ [0 .. n - 1] dsts = map (path ++) dsts'- srcs = tail dsts+ srcs = drop 1 dsts srcdsts = zip srcs dsts move (src, dst) = do exist <- doesFileExist src
System/Log/FastLogger/SingleLogger.hs view
@@ -7,6 +7,7 @@ import Control.Concurrent (MVar, forkIO, newEmptyMVar, putMVar, takeMVar) import Control.Concurrent.STM+import GHC.Conc.Sync (labelThread) import System.Log.FastLogger.FileIO import System.Log.FastLogger.IO@@ -69,7 +70,8 @@ tvar <- newTVarIO 0 ref <- newIORef (mempty, []) buf <- getBuffer bufsize- _ <- forkIO $ writer bufsize buf fdref tvar ref+ tid <- forkIO $ writer bufsize buf fdref tvar ref+ labelThread tid "FastLogger single logger's writer" let wakeup = atomically $ modifyTVar' tvar (+ 1) flush cont = do mvar <- newEmptyMVar
fast-logger.cabal view
@@ -1,6 +1,6 @@ cabal-version: >=1.10 name: fast-logger-version: 3.2.5+version: 3.2.6 license: BSD3 license-file: LICENSE maintainer: Kazu Yamamoto <kazu@iij.ad.jp>