packages feed

monad-parallel 0.7.2.5 → 0.8.0.1

raw patch · 2 files changed

Files

Control/Monad/Parallel.hs view
@@ -67,7 +67,6 @@ import Control.Monad.Trans.Identity (IdentityT(IdentityT, runIdentityT)) import Control.Monad.Trans.Maybe (MaybeT(MaybeT, runMaybeT)) import Control.Monad.Trans.Except (ExceptT(ExceptT), runExceptT)-import Control.Monad.Trans.List (ListT(ListT, runListT)) import Control.Monad.Trans.Reader (ReaderT(ReaderT, runReaderT)) import Control.Parallel (par, pseq) import Data.Either (Either(..), either)@@ -177,11 +176,6 @@            f' (Left e) _ = return (Left e)            f' _ (Left e) = return (Left e) -instance MonadParallel m => MonadParallel (ListT m) where-   bindM2 f ma mb = ListT (bindM2 f' (runListT ma) (runListT mb))-     where f' as bs = foldr concat (return []) [runListT (f a b) | a <- as, b <- bs]-           concat m m' = do {x <- m; y <- m'; return (x ++ y)}- instance MonadParallel m => MonadParallel (ReaderT r m) where    bindM2 f ma mb = ReaderT (\r-> bindM2 (f' r) (runReaderT ma r) (runReaderT mb r))      where f' r a b = runReaderT (f a b) r@@ -208,9 +202,6 @@  instance MonadFork m => MonadFork (ExceptT e m) where    forkExec ma = ExceptT (liftM (Right . ExceptT) $ forkExec (runExceptT ma))--instance MonadFork m => MonadFork (ListT m) where-   forkExec ma = ListT (liftM ((:[]) . ListT) $ forkExec (runListT ma))  instance MonadFork m => MonadFork (ReaderT r m) where    forkExec ma = ReaderT (\r-> liftM (ReaderT . const) $ forkExec (runReaderT ma r))
monad-parallel.cabal view
@@ -1,6 +1,6 @@ Name:                monad-parallel-Version:             0.7.2.5-Cabal-Version:       >= 1.10+Version:             0.8.0.1+Cabal-Version:       2.0 Build-Type:          Simple Synopsis:            Parallel execution of monadic computations Category:            Control, Monads@@ -12,7 +12,7 @@    License:             BSD3 License-file:        BSD3-LICENSE.txt-Copyright:           (c) 2010-2018 Mario Blazevic+Copyright:           (c) 2010-2022 Mario Blazevic Author:              Mario Blazevic Maintainer:          blamario@yahoo.com Homepage:            https://hub.darcs.net/blamario/SCC.wiki/@@ -23,6 +23,5 @@  Library   Exposed-Modules:   Control.Monad.Parallel-  Build-Depends:     base < 5, parallel, transformers >= 0.2 && < 0.7, transformers-compat >= 0.3 && < 0.7-  if impl(ghc >= 7.0.0)-     default-language: Haskell2010+  Build-Depends:     base < 5, parallel, transformers >= 0.2 && < 0.7, transformers-compat >= 0.3 && < 0.9+  default-language:  Haskell2010