Hello community, here is the log from the commit of package ghc-extra for openSUSE:Factory checked in at 2016-05-25 21:28:25 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 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-17 17:15:48.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-extra.new/ghc-extra.changes 2016-05-25 21:28:31.000000000 +0200 @@ -1,0 +2,6 @@ +Mon May 23 09:07:41 UTC 2016 - [email protected] + +- update to 1.4.7 +* add concatForM + +------------------------------------------------------------------- Old: ---- extra-1.4.6.tar.gz New: ---- extra-1.4.7.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-extra.spec ++++++ --- /var/tmp/diff_new_pack.y958WS/_old 2016-05-25 21:28:32.000000000 +0200 +++ /var/tmp/diff_new_pack.y958WS/_new 2016-05-25 21:28:32.000000000 +0200 @@ -21,7 +21,7 @@ %global debug_package %{nil} %bcond_with tests Name: ghc-extra -Version: 1.4.6 +Version: 1.4.7 Release: 0 Summary: Extra functions I use License: BSD-3-Clause ++++++ extra-1.4.6.tar.gz -> extra-1.4.7.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/extra-1.4.6/CHANGES.txt new/extra-1.4.7/CHANGES.txt --- old/extra-1.4.6/CHANGES.txt 2016-05-11 13:08:20.000000000 +0200 +++ new/extra-1.4.7/CHANGES.txt 2016-05-22 21:10:19.000000000 +0200 @@ -1,5 +1,7 @@ Changelog for Extra +1.4.7 + #21, add concatForM 1.4.6 #11, add maybeM and eitherM 1.4.5 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/extra-1.4.6/extra.cabal new/extra-1.4.7/extra.cabal --- old/extra-1.4.6/extra.cabal 2016-05-11 13:08:20.000000000 +0200 +++ new/extra-1.4.7/extra.cabal 2016-05-22 21:10:19.000000000 +0200 @@ -1,7 +1,7 @@ cabal-version: >= 1.10 build-type: Simple name: extra -version: 1.4.6 +version: 1.4.7 license: BSD3 license-file: LICENSE category: Development diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/extra-1.4.6/src/Control/Monad/Extra.hs new/extra-1.4.7/src/Control/Monad/Extra.hs --- old/extra-1.4.6/src/Control/Monad/Extra.hs 2016-05-11 13:08:20.000000000 +0200 +++ new/extra-1.4.7/src/Control/Monad/Extra.hs 2016-05-22 21:10:19.000000000 +0200 @@ -12,7 +12,7 @@ -- * Loops loopM, whileM, -- * Lists - partitionM, concatMapM, mconcatMapM, mapMaybeM, findM, firstJustM, + partitionM, concatMapM, concatForM, mconcatMapM, mapMaybeM, findM, firstJustM, -- * Booleans whenM, unlessM, ifM, notM, (||^), (&&^), orM, andM, anyM, allM ) where @@ -73,7 +73,12 @@ concatMapM op = foldr f (return []) where f x xs = do x <- op x; if null x then xs else do xs <- xs; return $ x++xs --- | A version of 'mconcatMapM' that works with a monadic predicate. +-- | Like 'concatMapM', but has its arguments flipped, so can be used +-- instead of the common @fmap concat $ forM@ pattern. +concatForM :: Monad m => [a] -> (a -> m [b]) -> m [b] +concatForM = flip concatMapM + +-- | A version of 'mconcatMap' that works with a monadic predicate. mconcatMapM :: (Monad m, Monoid b) => (a -> m b) -> [a] -> m b mconcatMapM f = liftM mconcat . mapM f diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/extra-1.4.6/src/Extra.hs new/extra-1.4.7/src/Extra.hs --- old/extra-1.4.6/src/Extra.hs 2016-05-11 13:08:20.000000000 +0200 +++ new/extra-1.4.7/src/Extra.hs 2016-05-22 21:10:19.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, maybeM, eitherM, 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, concatForM, 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,
