Hello community, here is the log from the commit of package ghc-lifted-async for openSUSE:Factory checked in at 2017-01-31 12:44:23 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-lifted-async (Old) and /work/SRC/openSUSE:Factory/.ghc-lifted-async.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-lifted-async" Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-lifted-async/ghc-lifted-async.changes 2016-07-20 09:23:38.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-lifted-async.new/ghc-lifted-async.changes 2017-02-03 17:39:20.526765217 +0100 @@ -1,0 +2,5 @@ +Wed Jan 18 09:00:26 UTC 2017 - [email protected] + +- Update to version 0.9.1 with cabal2obs. + +------------------------------------------------------------------- Old: ---- lifted-async-0.9.0.tar.gz New: ---- lifted-async-0.9.1.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-lifted-async.spec ++++++ --- /var/tmp/diff_new_pack.rLwG5h/_old 2017-02-03 17:39:20.890713703 +0100 +++ /var/tmp/diff_new_pack.rLwG5h/_new 2017-02-03 17:39:20.894713137 +0100 @@ -1,7 +1,7 @@ # # spec file for package ghc-lifted-async # -# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2017 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 @@ -19,15 +19,14 @@ %global pkg_name lifted-async %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.9.0 +Version: 0.9.1 Release: 0 Summary: Run lifted IO operations asynchronously and wait for their results License: BSD-3-Clause -Group: System/Libraries +Group: Development/Languages/Other Url: https://hackage.haskell.org/package/%{pkg_name} Source0: https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{version}.tar.gz BuildRequires: ghc-Cabal-devel -# Begin cabal-rpm deps: BuildRequires: ghc-async-devel BuildRequires: ghc-constraints-devel BuildRequires: ghc-lifted-base-devel @@ -42,7 +41,6 @@ BuildRequires: ghc-tasty-hunit-devel BuildRequires: ghc-tasty-th-devel %endif -# End cabal-rpm deps %description This package provides IO operations from 'async' package lifted to any instance @@ -62,20 +60,14 @@ %prep %setup -q -n %{pkg_name}-%{version} - %build %ghc_lib_build - %install %ghc_lib_install - %check -%if %{with tests} -%{cabal} test -%endif - +%cabal_test %post devel %ghc_pkg_recache ++++++ lifted-async-0.9.0.tar.gz -> lifted-async-0.9.1.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/lifted-async-0.9.0/LICENSE new/lifted-async-0.9.1/LICENSE --- old/lifted-async-0.9.0/LICENSE 2016-05-22 14:26:28.000000000 +0200 +++ new/lifted-async-0.9.1/LICENSE 2017-01-13 00:57:11.000000000 +0100 @@ -1,4 +1,4 @@ -Copyright (c) 2012, Mitsutoshi Aoe +Copyright (c) 2012-2017, Mitsutoshi Aoe All rights reserved. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/lifted-async-0.9.0/lifted-async.cabal new/lifted-async-0.9.1/lifted-async.cabal --- old/lifted-async-0.9.0/lifted-async.cabal 2016-05-22 14:26:28.000000000 +0200 +++ new/lifted-async-0.9.1/lifted-async.cabal 2017-01-13 00:57:11.000000000 +0100 @@ -1,5 +1,5 @@ name: lifted-async -version: 0.9.0 +version: 0.9.1 synopsis: Run lifted IO operations asynchronously and wait for their results homepage: https://github.com/maoe/lifted-async bug-reports: https://github.com/maoe/lifted-async/issues @@ -7,12 +7,12 @@ license-file: LICENSE author: Mitsutoshi Aoe maintainer: Mitsutoshi Aoe <[email protected]> -copyright: Copyright (C) 2012-2016 Mitsutoshi Aoe +copyright: Copyright (C) 2012-2017 Mitsutoshi Aoe category: Concurrency build-type: Simple cabal-version: >= 1.8 tested-with: - GHC == 8.0.1 + GHC == 8.0.2 , GHC == 7.10.2 , GHC == 7.8.4 , GHC == 7.6.3 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/lifted-async-0.9.0/src/Control/Concurrent/Async/Lifted/Safe.hs new/lifted-async-0.9.1/src/Control/Concurrent/Async/Lifted/Safe.hs --- old/lifted-async-0.9.0/src/Control/Concurrent/Async/Lifted/Safe.hs 2016-05-22 14:26:28.000000000 +0200 +++ new/lifted-async-0.9.1/src/Control/Concurrent/Async/Lifted/Safe.hs 2017-01-13 00:57:11.000000000 +0100 @@ -12,7 +12,7 @@ {- | Module : Control.Concurrent.Async.Lifted.Safe -Copyright : Copyright (C) 2012-2015 Mitsutoshi Aoe +Copyright : Copyright (C) 2012-2017 Mitsutoshi Aoe License : BSD-style (see the file LICENSE) Maintainer : Mitsutoshi Aoe <[email protected]> Stability : experimental @@ -67,7 +67,9 @@ , Unsafe.link, Unsafe.link2 -- * Convenient utilities - , race, race_, concurrently, mapConcurrently + , race, race_, concurrently + , mapConcurrently, mapConcurrently_ + , forConcurrently, forConcurrently_ , Concurrently(..) @@ -97,6 +99,7 @@ import qualified Control.Concurrent.Async.Lifted as Unsafe #if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ < 710 +import Data.Foldable import Data.Traversable #endif #if !MIN_VERSION_base(4, 8, 0) @@ -342,6 +345,30 @@ -> m (t b) mapConcurrently f = runConcurrently . traverse (Concurrently . f) +-- | Generalized version of 'A.mapConcurrently_'. +mapConcurrently_ + :: (Foldable t, MonadBaseControl IO m, Forall (Pure m)) + => (a -> m b) + -> t a + -> m () +mapConcurrently_ f = runConcurrently . foldMap (Concurrently . void . f) + +-- | Generalized version of 'A.forConcurrently'. +forConcurrently + :: (Traversable t, MonadBaseControl IO m, Forall (Pure m)) + => t a + -> (a -> m b) + -> m (t b) +forConcurrently = flip mapConcurrently + +-- | Generalized version of 'A.forConcurrently_'. +forConcurrently_ + :: (Foldable t, MonadBaseControl IO m, Forall (Pure m)) + => t a + -> (a -> m b) + -> m () +forConcurrently_ = flip mapConcurrently_ + -- | Generalized version of 'A.Concurrently'. -- -- A value of type @'Concurrently' m a@ is an IO-based operation that can be diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/lifted-async-0.9.0/src/Control/Concurrent/Async/Lifted.hs new/lifted-async-0.9.1/src/Control/Concurrent/Async/Lifted.hs --- old/lifted-async-0.9.0/src/Control/Concurrent/Async/Lifted.hs 2016-05-22 14:26:28.000000000 +0200 +++ new/lifted-async-0.9.1/src/Control/Concurrent/Async/Lifted.hs 2017-01-13 00:57:11.000000000 +0100 @@ -7,7 +7,7 @@ {- | Module : Control.Concurrent.Async.Lifted -Copyright : Copyright (C) 2012-2015 Mitsutoshi Aoe +Copyright : Copyright (C) 2012-2017 Mitsutoshi Aoe License : BSD-style (see the file LICENSE) Maintainer : Mitsutoshi Aoe <[email protected]> Stability : experimental @@ -63,13 +63,15 @@ , link, link2 -- * Convenient utilities - , race, race_, concurrently, mapConcurrently, forConcurrently + , race, race_, concurrently + , mapConcurrently, mapConcurrently_ + , forConcurrently, forConcurrently_ , Concurrently(..) ) where import Control.Applicative import Control.Concurrent (threadDelay) -import Control.Monad ((>=>), forever, liftM) +import Control.Monad ((>=>), forever, liftM, void) import GHC.IO (unsafeUnmask) import Prelude hiding (mapM) @@ -81,6 +83,7 @@ import qualified Control.Exception.Lifted as E #if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ < 710 +import Data.Foldable import Data.Traversable #endif #if !MIN_VERSION_base(4, 8, 0) @@ -367,6 +370,14 @@ -> m (t b) mapConcurrently f = runConcurrently . traverse (Concurrently . f) +-- | Generalized version of 'A.mapConcurrently_'. +mapConcurrently_ + :: (Foldable t, MonadBaseControl IO m) + => (a -> m b) + -> t a + -> m () +mapConcurrently_ f = runConcurrently . foldMap (Concurrently . void . f) + -- | Generalized version of 'A.forConcurrently'. forConcurrently :: (Traversable t, MonadBaseControl IO m) @@ -375,6 +386,14 @@ -> m (t b) forConcurrently = flip mapConcurrently +-- | Generalized version of 'A.forConcurrently_'. +forConcurrently_ + :: (Foldable t, MonadBaseControl IO m) + => t a + -> (a -> m b) + -> m () +forConcurrently_ = flip mapConcurrently_ + -- | Generalized version of 'A.Concurrently'. -- -- A value of type @'Concurrently' m a@ is an IO-based operation that can be
