diff options
author | 2020-09-13 14:58:09 +0200 | |
---|---|---|
committer | 2020-09-14 08:05:40 +0100 | |
commit | 0d1e2a0c6e3a907d5dc33aefa6b79f2300637572 (patch) | |
tree | 24a2a0c7ee7c4e06a18588c4cc41723fe120d08e /dev-haskell | |
parent | dev-haskell/esqueleto: remove unused patch(es) (diff) | |
download | gentoo-0d1e2a0c6e3a907d5dc33aefa6b79f2300637572.tar.gz gentoo-0d1e2a0c6e3a907d5dc33aefa6b79f2300637572.tar.bz2 gentoo-0d1e2a0c6e3a907d5dc33aefa6b79f2300637572.zip |
dev-haskell/lifted-async: remove unused patch(es)
Package-Manager: Portage-3.0.6, Repoman-3.0.1
Signed-off-by: Michael Mair-Keimberger <m.mairkeimberger@gmail.com>
Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
Diffstat (limited to 'dev-haskell')
-rw-r--r-- | dev-haskell/lifted-async/files/lifted-async-0.2.0.2-monad-control-1.1.patch | 69 |
1 files changed, 0 insertions, 69 deletions
diff --git a/dev-haskell/lifted-async/files/lifted-async-0.2.0.2-monad-control-1.1.patch b/dev-haskell/lifted-async/files/lifted-async-0.2.0.2-monad-control-1.1.patch deleted file mode 100644 index 970d9842f770..000000000000 --- a/dev-haskell/lifted-async/files/lifted-async-0.2.0.2-monad-control-1.1.patch +++ /dev/null @@ -1,69 +0,0 @@ -commit 448176aa98e03a31121501af004d8159e92b2f66 -Author: Roman Cheplyaka <roma@ro-che.info> -Date: Tue Dec 16 12:09:52 2014 +0200 - - Make lifted-async build with monad-control-1.0 - -diff --git a/src/Control/Concurrent/Async/Lifted.hs b/src/Control/Concurrent/Async/Lifted.hs -index fa5a158..e5034c1 100644 ---- a/src/Control/Concurrent/Async/Lifted.hs -+++ b/src/Control/Concurrent/Async/Lifted.hs -@@ -2,6 +2,7 @@ - {-# LANGUAGE KindSignatures #-} - {-# LANGUAGE RankNTypes #-} - {-# LANGUAGE TypeFamilies #-} -+{-# LANGUAGE ScopedTypeVariables #-} - - {- | - Module : Control.Concurrent.Async.Lifted -@@ -47,7 +48,7 @@ module Control.Concurrent.Async.Lifted - - import Control.Applicative - import Control.Concurrent (threadDelay) --import Control.Monad ((>=>), forever, liftM, void) -+import Control.Monad ((>=>), forever, liftM) - import Data.Traversable (Traversable(..)) - import GHC.IO (unsafeUnmask) - import Prelude hiding (mapM) -@@ -180,11 +181,11 @@ waitCatch - waitCatch a = liftBase (A.waitCatch a) >>= sequenceEither - - -- | Generalized version of 'A.cancel'. --cancel :: MonadBase IO m => Async (StM m a) -> m () -+cancel :: MonadBase IO m => Async a -> m () - cancel = liftBase . A.cancel - - -- | Generalized version of 'A.cancelWith'. --cancelWith :: (MonadBase IO m, Exception e) => Async (StM m a) -> e -> m () -+cancelWith :: (MonadBase IO m, Exception e) => Async a -> e -> m () - cancelWith = (liftBase .) . A.cancelWith - - -- | Generalized version of 'A.waitAny'. -@@ -261,10 +262,10 @@ waitEitherCatchCancel a b = - -- | Generalized version of 'A.waitEither_'. - waitEither_ - :: MonadBaseControl IO m -- => Async (StM m a) -- -> Async (StM m b) -+ => Async a -+ -> Async b - -> m () --waitEither_ = (void .) . waitEither -+waitEither_ a b = liftBase (A.waitEither_ a b) - - -- | Generalized version of 'A.waitBoth'. - waitBoth -@@ -280,11 +281,11 @@ waitBoth a b = do - {-# INLINABLE waitBoth #-} - - -- | Generalized version of 'A.link'. --link :: MonadBase IO m => Async (StM m a) -> m () -+link :: MonadBase IO m => Async a -> m () - link = liftBase . A.link - - -- | Generalized version of 'A.link2'. --link2 :: MonadBase IO m => Async (StM m a) -> Async (StM m b) -> m () -+link2 :: MonadBase IO m => Async a -> Async a -> m () - link2 = (liftBase .) . A.link2 - - -- | Generalized version of 'A.race'. |