Hello community,
here is the log from the commit of package ghc-extra for openSUSE:Factory
checked in at 2016-05-17 17:15:47
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-extra (Old)
and /work/SRC/openSUSE:Factory/.ghc-extra.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-extra"
Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-extra/ghc-extra.changes 2016-05-03
10:16:42.000000000 +0200
+++ /work/SRC/openSUSE:Factory/.ghc-extra.new/ghc-extra.changes 2016-05-17
17:15:48.000000000 +0200
@@ -1,0 +2,6 @@
+Thu May 12 13:35:41 UTC 2016 - mimi...@gmail.com
+
+- update to 1.4.6
+* add maybeM and eitherM
+
+-------------------------------------------------------------------
Old:
----
extra-1.4.5.tar.gz
New:
----
extra-1.4.6.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ ghc-extra.spec ++++++
--- /var/tmp/diff_new_pack.R7uanh/_old 2016-05-17 17:15:49.000000000 +0200
+++ /var/tmp/diff_new_pack.R7uanh/_new 2016-05-17 17:15:49.000000000 +0200
@@ -21,7 +21,7 @@
%global debug_package %{nil}
%bcond_with tests
Name: ghc-extra
-Version: 1.4.5
+Version: 1.4.6
Release: 0
Summary: Extra functions I use
License: BSD-3-Clause
++++++ extra-1.4.5.tar.gz -> extra-1.4.6.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/extra-1.4.5/CHANGES.txt new/extra-1.4.6/CHANGES.txt
--- old/extra-1.4.5/CHANGES.txt 2016-04-29 21:36:57.000000000 +0200
+++ new/extra-1.4.6/CHANGES.txt 2016-05-11 13:08:20.000000000 +0200
@@ -1,5 +1,7 @@
Changelog for Extra
+1.4.6
+ #11, add maybeM and eitherM
1.4.5
#17, change fileEq on files that do not exist to be an error
1.4.4
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/extra-1.4.5/extra.cabal new/extra-1.4.6/extra.cabal
--- old/extra-1.4.5/extra.cabal 2016-04-29 21:36:57.000000000 +0200
+++ new/extra-1.4.6/extra.cabal 2016-05-11 13:08:20.000000000 +0200
@@ -1,7 +1,7 @@
cabal-version: >= 1.10
build-type: Simple
name: extra
-version: 1.4.5
+version: 1.4.6
license: BSD3
license-file: LICENSE
category: Development
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/extra-1.4.5/src/Control/Monad/Extra.hs
new/extra-1.4.6/src/Control/Monad/Extra.hs
--- old/extra-1.4.5/src/Control/Monad/Extra.hs 2016-04-29 21:36:57.000000000
+0200
+++ new/extra-1.4.6/src/Control/Monad/Extra.hs 2016-05-11 13:08:20.000000000
+0200
@@ -8,6 +8,7 @@
module Control.Monad,
whenJust, whenJustM,
unit,
+ maybeM, eitherM,
-- * Loops
loopM, whileM,
-- * Lists
@@ -42,6 +43,16 @@
unit :: m () -> m ()
unit = id
+
+-- | Monadic generalisation of 'maybe'.
+maybeM :: Monad m => m b -> (a -> m b) -> m (Maybe a) -> m b
+maybeM n j x = maybe n j =<< x
+
+
+-- | Monadic generalisation of 'either'.
+eitherM :: Monad m => (a -> m c) -> (b -> m c) -> m (Either a b) -> m c
+eitherM l r x = either l r =<< x
+
-- Data.List for Monad
-- | A version of 'partition' that works with a monadic predicate.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/extra-1.4.5/src/Extra.hs new/extra-1.4.6/src/Extra.hs
--- old/extra-1.4.5/src/Extra.hs 2016-04-29 21:36:57.000000000 +0200
+++ new/extra-1.4.6/src/Extra.hs 2016-05-11 13:08:20.000000000 +0200
@@ -14,7 +14,7 @@
retry, retryBool, showException, stringException, errorIO, ignore, catch_,
handle_, try_, catchJust_, handleJust_, tryJust_, catchBool, handleBool,
tryBool,
-- * Control.Monad.Extra
-- | Extra functions available in @"Control.Monad.Extra"@.
- whenJust, whenJustM, unit, loopM, whileM, partitionM, concatMapM,
mconcatMapM, mapMaybeM, findM, firstJustM, whenM, unlessM, ifM, notM, (||^),
(&&^), orM, andM, anyM, allM,
+ whenJust, whenJustM, unit, maybeM, eitherM, loopM, whileM, partitionM,
concatMapM, mconcatMapM, mapMaybeM, findM, firstJustM, whenM, unlessM, ifM,
notM, (||^), (&&^), orM, andM, anyM, allM,
-- * Data.Either.Extra
-- | Extra functions available in @"Data.Either.Extra"@.
isLeft, isRight, fromLeft, fromRight, fromEither,
