Hello community,
here is the log from the commit of package ghc-monad-logger for
openSUSE:Factory checked in at 2017-04-11 09:42:55
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-monad-logger (Old)
and /work/SRC/openSUSE:Factory/.ghc-monad-logger.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-monad-logger"
Tue Apr 11 09:42:55 2017 rev:10 rq:485144 version:0.3.21
Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-monad-logger/ghc-monad-logger.changes
2017-03-03 17:51:17.695832448 +0100
+++ /work/SRC/openSUSE:Factory/.ghc-monad-logger.new/ghc-monad-logger.changes
2017-04-11 09:42:57.227807348 +0200
@@ -1,0 +2,5 @@
+Mon Mar 27 12:41:42 UTC 2017 - psim...@suse.com
+
+- Update to version 0.3.21 with cabal2obs.
+
+-------------------------------------------------------------------
Old:
----
monad-logger-0.3.20.2.tar.gz
New:
----
monad-logger-0.3.21.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ ghc-monad-logger.spec ++++++
--- /var/tmp/diff_new_pack.fDapod/_old 2017-04-11 09:42:58.315653675 +0200
+++ /var/tmp/diff_new_pack.fDapod/_new 2017-04-11 09:42:58.319653109 +0200
@@ -18,7 +18,7 @@
%global pkg_name monad-logger
Name: ghc-%{pkg_name}
-Version: 0.3.20.2
+Version: 0.3.21
Release: 0
Summary: A class of monads which can log messages
License: MIT
++++++ monad-logger-0.3.20.2.tar.gz -> monad-logger-0.3.21.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/monad-logger-0.3.20.2/ChangeLog.md
new/monad-logger-0.3.21/ChangeLog.md
--- old/monad-logger-0.3.20.2/ChangeLog.md 2017-02-14 12:37:22.000000000
+0100
+++ new/monad-logger-0.3.21/ChangeLog.md 2017-03-16 18:06:16.000000000
+0100
@@ -1,3 +1,7 @@
+## 0.3.21
+
+* Reimplemented Functor & Applicative for LoggingT & NoLoggingT
[#125](https://github.com/kazu-yamamoto/logger/issues/125)
[#126](https://github.com/kazu-yamamoto/logger/pull/126)
+
## 0.3.20.2
* Support for GHC 8.2
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/monad-logger-0.3.20.2/Control/Monad/Logger.hs
new/monad-logger-0.3.21/Control/Monad/Logger.hs
--- old/monad-logger-0.3.20.2/Control/Monad/Logger.hs 2017-02-14
12:35:28.000000000 +0100
+++ new/monad-logger-0.3.21/Control/Monad/Logger.hs 2017-03-16
18:04:57.000000000 +0100
@@ -364,12 +364,24 @@
-- Since 0.2.4
newtype NoLoggingT m a = NoLoggingT { runNoLoggingT :: m a }
+#if __GLASGOW_HASKELL__ < 710
instance Monad m => Functor (NoLoggingT m) where
fmap = liftM
instance Monad m => Applicative (NoLoggingT m) where
pure = return
(<*>) = ap
+#else
+instance Functor m => Functor (NoLoggingT m) where
+ fmap f = NoLoggingT . fmap f . runNoLoggingT
+ {-# INLINE fmap #-}
+
+instance Applicative m => Applicative (NoLoggingT m) where
+ pure = NoLoggingT . pure
+ {-# INLINE pure #-}
+ f <*> a = NoLoggingT (runNoLoggingT f <*> runNoLoggingT a)
+ {-# INLINE (<*>) #-}
+#endif
instance Monad m => Monad (NoLoggingT m) where
return = NoLoggingT . return
@@ -452,12 +464,26 @@
-- Since 0.2.2
newtype LoggingT m a = LoggingT { runLoggingT :: (Loc -> LogSource -> LogLevel
-> LogStr -> IO ()) -> m a }
+#if __GLASGOW_HASKELL__ < 710
instance Monad m => Functor (LoggingT m) where
fmap = liftM
instance Monad m => Applicative (LoggingT m) where
pure = return
(<*>) = ap
+#else
+instance Functor m => Functor (LoggingT m) where
+ fmap f logger = LoggingT $ \loggerFn -> fmap f $ (runLoggingT logger)
loggerFn
+ {-# INLINE fmap #-}
+
+instance Applicative m => Applicative (LoggingT m) where
+ pure = LoggingT . const . pure
+ {-# INLINE pure #-}
+ loggerF <*> loggerA = LoggingT $ \loggerFn ->
+ (runLoggingT loggerF) loggerFn
+ <*> (runLoggingT loggerA) loggerFn
+ {-# INLINE (<*>) #-}
+#endif
instance Monad m => Monad (LoggingT m) where
return = LoggingT . const . return
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/monad-logger-0.3.20.2/monad-logger.cabal
new/monad-logger-0.3.21/monad-logger.cabal
--- old/monad-logger-0.3.20.2/monad-logger.cabal 2017-02-14
12:37:15.000000000 +0100
+++ new/monad-logger-0.3.21/monad-logger.cabal 2017-03-16 18:05:46.000000000
+0100
@@ -1,5 +1,5 @@
name: monad-logger
-version: 0.3.20.2
+version: 0.3.21
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
