Hello community,
here is the log from the commit of package ghc-monad-logger for
openSUSE:Factory checked in at 2020-05-11 13:35:31
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-monad-logger (Old)
and /work/SRC/openSUSE:Factory/.ghc-monad-logger.new.2738 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-monad-logger"
Mon May 11 13:35:31 2020 rev:20 rq:801035 version:0.3.32
Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-monad-logger/ghc-monad-logger.changes
2019-12-27 13:55:30.856720514 +0100
+++
/work/SRC/openSUSE:Factory/.ghc-monad-logger.new.2738/ghc-monad-logger.changes
2020-05-11 13:35:55.696435185 +0200
@@ -1,0 +2,10 @@
+Tue Mar 24 08:06:55 UTC 2020 - [email protected]
+
+- Update monad-logger to version 0.3.32.
+ # ChangeLog for monad-logger
+
+ ## 0.3.32
+
+ * Compat with `unliftio-core` 0.2
+
+-------------------------------------------------------------------
Old:
----
monad-logger-0.3.31.tar.gz
New:
----
monad-logger-0.3.32.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ ghc-monad-logger.spec ++++++
--- /var/tmp/diff_new_pack.zqrrdl/_old 2020-05-11 13:35:57.768439528 +0200
+++ /var/tmp/diff_new_pack.zqrrdl/_new 2020-05-11 13:35:57.772439537 +0200
@@ -1,7 +1,7 @@
#
# spec file for package ghc-monad-logger
#
-# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2020 SUSE LINUX GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -18,7 +18,7 @@
%global pkg_name monad-logger
Name: ghc-%{pkg_name}
-Version: 0.3.31
+Version: 0.3.32
Release: 0
Summary: A class of monads which can log messages
License: MIT
++++++ monad-logger-0.3.31.tar.gz -> monad-logger-0.3.32.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/monad-logger-0.3.31/ChangeLog.md
new/monad-logger-0.3.32/ChangeLog.md
--- old/monad-logger-0.3.31/ChangeLog.md 2019-11-25 13:28:54.000000000
+0100
+++ new/monad-logger-0.3.32/ChangeLog.md 2020-03-01 09:40:33.000000000
+0100
@@ -1,3 +1,9 @@
+# ChangeLog for monad-logger
+
+## 0.3.32
+
+* Compat with `unliftio-core` 0.2
+
## 0.3.31
* Re-export `fromLogStr` to make implementing custom instances more convenient.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/monad-logger-0.3.31/Control/Monad/Logger.hs
new/monad-logger-0.3.32/Control/Monad/Logger.hs
--- old/monad-logger-0.3.31/Control/Monad/Logger.hs 2019-11-25
13:28:54.000000000 +0100
+++ new/monad-logger-0.3.32/Control/Monad/Logger.hs 2020-03-01
09:40:04.000000000 +0100
@@ -115,7 +115,7 @@
import Control.Concurrent.STM
import Control.Concurrent.STM.TBChan
import Control.Exception.Lifted (onException, bracket)
-import Control.Monad (liftM, ap, when, void, forever)
+import Control.Monad (liftM, when, void, forever)
import Control.Monad.Base (MonadBase (liftBase), liftBaseDefault)
#if MIN_VERSION_base(4, 9, 0)
import qualified Control.Monad.Fail as Fail
@@ -170,8 +170,6 @@
import GHC.Stack as GHC
#endif
-import Prelude hiding (catch)
-
import Data.Conduit.Lazy (MonadActive, monadActive)
data LogLevel = LevelDebug | LevelInfo | LevelWarn | LevelError | LevelOther
Text
@@ -404,9 +402,11 @@
-- | @since 0.3.26
instance MonadUnliftIO m => MonadUnliftIO (NoLoggingT m) where
- askUnliftIO = NoLoggingT $
- withUnliftIO $ \u ->
- return (UnliftIO (unliftIO u . runNoLoggingT))
+ {-# INLINE withRunInIO #-}
+ withRunInIO inner =
+ NoLoggingT $
+ withRunInIO $ \run ->
+ inner (run . runNoLoggingT)
-- | @since 0.3.28
type LogLine = (Loc, LogSource, LogLevel, LogStr)
@@ -626,9 +626,11 @@
-- | @since 0.3.26
instance MonadUnliftIO m => MonadUnliftIO (LoggingT m) where
- askUnliftIO = LoggingT $ \f ->
- withUnliftIO $ \u ->
- return (UnliftIO (unliftIO u . flip runLoggingT f))
+ {-# INLINE withRunInIO #-}
+ withRunInIO inner =
+ LoggingT $ \r ->
+ withRunInIO $ \run ->
+ inner (run . flip runLoggingT r)
defaultOutput :: Handle
-> Loc
@@ -699,10 +701,10 @@
--
-- @since 0.3.22
runFileLoggingT :: MonadBaseControl IO m => FilePath -> LoggingT m a -> m a
-runFileLoggingT fp log = bracket
+runFileLoggingT fp logt = bracket
(liftBase $ openFile fp AppendMode)
(liftBase . hClose)
- $ \h -> liftBase (hSetBuffering h LineBuffering) >> (runLoggingT log)
(defaultOutput h)
+ $ \h -> liftBase (hSetBuffering h LineBuffering) >> (runLoggingT logt)
(defaultOutput h)
-- | Run a block using a @MonadLogger@ instance which prints to stderr.
--
@@ -726,7 +728,7 @@
runChanLoggingT :: MonadIO m => Chan LogLine -> LoggingT m a -> m a
runChanLoggingT chan = (`runLoggingT` sink chan)
where
- sink chan loc src lvl msg = writeChan chan (loc,src,lvl,msg)
+ sink chan' loc src lvl msg = writeChan chan' (loc,src,lvl,msg)
-- | Read logging tuples from an unbounded channel and log them into a
-- `MonadLoggerIO` monad, forever.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/monad-logger-0.3.31/monad-logger.cabal
new/monad-logger-0.3.32/monad-logger.cabal
--- old/monad-logger-0.3.31/monad-logger.cabal 2019-11-25 14:31:48.000000000
+0100
+++ new/monad-logger-0.3.32/monad-logger.cabal 2020-03-01 09:40:15.000000000
+0100
@@ -1,13 +1,13 @@
cabal-version: 1.12
--- This file has been generated from package.yaml by hpack version 0.31.2.
+-- This file has been generated from package.yaml by hpack version 0.33.0.
--
-- see: https://github.com/sol/hpack
--
--- hash: 732ba66e7c9140cd574be4c9bda3f12c1b8f9b6ddf7f75d373f6a0c518c292f0
+-- hash: 3bc78e9ad84902b767b9156b71057661558496979be02259b5e9161b3268b097
name: monad-logger
-version: 0.3.31
+version: 0.3.32
synopsis: A class of monads which can log messages.
description: See README and Haddocks at
<https://www.stackage.org/package/monad-logger>
category: System
