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 - psimons@suse.com
+
+- 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
-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
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
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
