Hello community, here is the log from the commit of package ghc-monad-logger for openSUSE:Factory checked in at 2017-06-04 01:57:53 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-monad-logger (Old) and /work/SRC/openSUSE:Factory/.ghc-monad-logger.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-monad-logger" Sun Jun 4 01:57:53 2017 rev:12 rq:499713 version:0.3.24 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-monad-logger/ghc-monad-logger.changes 2017-04-18 13:50:54.318164945 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-monad-logger.new/ghc-monad-logger.changes 2017-06-04 01:57:54.228519486 +0200 @@ -1,0 +2,10 @@ +Thu May 18 09:52:10 UTC 2017 - [email protected] + +- Update to version 0.3.24 with cabal2obs. + +------------------------------------------------------------------- +Wed May 3 08:14:07 UTC 2017 - [email protected] + +- Update to version 0.3.23 with cabal2obs. + +------------------------------------------------------------------- Old: ---- monad-logger-0.3.22.tar.gz New: ---- monad-logger-0.3.24.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-monad-logger.spec ++++++ --- /var/tmp/diff_new_pack.nAfoXP/_old 2017-06-04 01:57:54.944418348 +0200 +++ /var/tmp/diff_new_pack.nAfoXP/_new 2017-06-04 01:57:54.948417783 +0200 @@ -18,7 +18,7 @@ %global pkg_name monad-logger Name: ghc-%{pkg_name} -Version: 0.3.22 +Version: 0.3.24 Release: 0 Summary: A class of monads which can log messages License: MIT ++++++ monad-logger-0.3.22.tar.gz -> monad-logger-0.3.24.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/monad-logger-0.3.22/ChangeLog.md new/monad-logger-0.3.24/ChangeLog.md --- old/monad-logger-0.3.22/ChangeLog.md 2017-03-27 10:49:43.000000000 +0200 +++ new/monad-logger-0.3.24/ChangeLog.md 2017-05-03 17:47:49.000000000 +0200 @@ -1,3 +1,10 @@ +## 0.3.24 +* Added `MonadReader` instance for `NoLoggingT`. + +## 0.3.23 +* Changed `runFileLoggingT` buffering to line buffering. +* Added `defaultLog` and `logWithoutLoc` to list of exported functions. + ## 0.3.22 * Added `runFileLoggingT`. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/monad-logger-0.3.22/Control/Monad/Logger.hs new/monad-logger-0.3.24/Control/Monad/Logger.hs --- old/monad-logger-0.3.22/Control/Monad/Logger.hs 2017-03-27 10:49:43.000000000 +0200 +++ new/monad-logger-0.3.24/Control/Monad/Logger.hs 2017-05-03 17:47:49.000000000 +0200 @@ -74,6 +74,7 @@ , logErrorN , logOtherN -- * Non-TH logging with source + , logWithoutLoc , logDebugNS , logInfoNS , logWarnNS @@ -90,6 +91,7 @@ -- * utilities for defining your own loggers , defaultLogStr , Loc (..) + , defaultLoc ) where #if WITH_TEMPLATE_HASKELL @@ -144,7 +146,7 @@ import Data.Monoid (mappend, mempty) import System.Log.FastLogger -import System.IO (Handle, IOMode(AppendMode), openFile, hClose, stdout, stderr) +import System.IO (Handle, IOMode(AppendMode), BufferMode(LineBuffering), openFile, hClose, hSetBuffering, stdout, stderr) import Control.Monad.Cont.Class ( MonadCont (..) ) import Control.Monad.Error.Class ( MonadError (..) ) @@ -210,11 +212,11 @@ -- logging function itself can be extracted as a first-class value, which can -- make it easier to manipulate monad transformer stacks, as an example. -- --- Since 0.3.10 +-- @since 0.3.10 class (MonadLogger m, MonadIO m) => MonadLoggerIO m where -- | Request the logging function itself. -- - -- Since 0.3.10 + -- @since 0.3.10 askLoggerIO :: m (Loc -> LogSource -> LogLevel -> LogStr -> IO ()) default askLoggerIO :: (Trans.MonadTrans t, MonadLoggerIO n, m ~ t n) => m (Loc -> LogSource -> LogLevel -> LogStr -> IO ()) @@ -327,7 +329,7 @@ -- | Lift a location into an Exp. -- --- Since 0.3.1 +-- @since 0.3.1 liftLoc :: Loc -> Q Exp liftLoc (Loc a b c (d1, d2) (e1, e2)) = [|Loc $(lift a) @@ -362,7 +364,7 @@ -- | Monad transformer that disables logging. -- --- Since 0.2.4 +-- @since 0.2.4 newtype NoLoggingT m a = NoLoggingT { runNoLoggingT :: m a } #if __GLASGOW_HASKELL__ < 710 @@ -462,7 +464,7 @@ -- | Monad transformer that adds a new logging function. -- --- Since 0.2.2 +-- @since 0.2.2 newtype LoggingT m a = LoggingT { runLoggingT :: (Loc -> LogSource -> LogLevel -> LogStr -> IO ()) -> m a } #if __GLASGOW_HASKELL__ < 710 @@ -658,17 +660,17 @@ runFileLoggingT fp log = bracket (liftBase $ openFile fp AppendMode) (liftBase . hClose) - $ \h -> (runLoggingT log) (defaultOutput h) + $ \h -> liftBase (hSetBuffering h LineBuffering) >> (runLoggingT log) (defaultOutput h) -- | Run a block using a @MonadLogger@ instance which prints to stderr. -- --- Since 0.2.2 +-- @since 0.2.2 runStderrLoggingT :: MonadIO m => LoggingT m a -> m a runStderrLoggingT = (`runLoggingT` defaultOutput stderr) -- | Run a block using a @MonadLogger@ instance which prints to stdout. -- --- Since 0.2.2 +-- @since 0.2.2 runStdoutLoggingT :: MonadIO m => LoggingT m a -> m a runStdoutLoggingT = (`runLoggingT` defaultOutput stdout) @@ -699,7 +701,7 @@ -- channel of the indicated size, and only actually log them if there is an -- exception. -- --- Since 0.3.2 +-- @since 0.3.2 withChannelLogger :: (MonadBaseControl IO m, MonadIO m) => Int -- ^ Number of messages to keep -> LoggingT m a @@ -720,7 +722,7 @@ -- -- This can be a convenient way, for example, to ignore debug level messages. -- --- Since 0.3.13 +-- @since 0.3.13 filterLogger :: (LogSource -> LogLevel -> Bool) -> LoggingT m a -> LoggingT m a @@ -745,6 +747,11 @@ ask = Trans.lift ask local = mapLoggingT . local +-- | @since 0.3.24 +instance MonadReader r m => MonadReader r (NoLoggingT m) where + ask = Trans.lift ask + local = mapNoLoggingT . local + mapLoggingT :: (m a -> n b) -> LoggingT m a -> LoggingT n b mapLoggingT f = LoggingT . (f .) . runLoggingT @@ -769,6 +776,9 @@ listen = mapNoLoggingT listen pass = mapNoLoggingT pass +-- | dummy location, used with 'logWithoutLoc' +-- +-- @since 0.3.23 defaultLoc :: Loc defaultLoc = Loc "<unknown>" "<unknown>" "<unknown>" (0,0) (0,0) @@ -776,6 +786,9 @@ isDefaultLoc (Loc "<unknown>" "<unknown>" "<unknown>" (0,0) (0,0)) = True isDefaultLoc _ = False +-- | +-- +-- @since 0.3.23 logWithoutLoc :: (MonadLogger m, ToLogStr msg) => LogSource -> LogLevel -> msg -> m () logWithoutLoc = monadLoggerLog defaultLoc diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/monad-logger-0.3.22/monad-logger.cabal new/monad-logger-0.3.24/monad-logger.cabal --- old/monad-logger-0.3.22/monad-logger.cabal 2017-03-27 10:49:43.000000000 +0200 +++ new/monad-logger-0.3.24/monad-logger.cabal 2017-05-03 17:47:49.000000000 +0200 @@ -1,5 +1,5 @@ name: monad-logger -version: 0.3.22 +version: 0.3.24 synopsis: A class of monads which can log messages. description: Hackage documentation generation is not reliable. For up to date documentation, please see: <http://www.stackage.org/package/monad-logger>. homepage: https://github.com/kazu-yamamoto/logger
