monad-parallel 0.7.2.5 → 0.8
raw patch · 2 files changed
+3/−12 lines, 2 filesdep ~transformers-compat
Dependency ranges changed: transformers-compat
Files
- Control/Monad/Parallel.hs +0/−9
- monad-parallel.cabal +3/−3
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,5 +1,5 @@ Name: monad-parallel-Version: 0.7.2.5+Version: 0.8 Cabal-Version: >= 1.10 Build-Type: Simple Synopsis: Parallel execution of monadic computations@@ -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,6 @@ Library Exposed-Modules: Control.Monad.Parallel- Build-Depends: base < 5, parallel, transformers >= 0.2 && < 0.7, transformers-compat >= 0.3 && < 0.7+ Build-Depends: base < 5, parallel, transformers >= 0.2 && < 0.7, transformers-compat >= 0.3 && < 0.8 if impl(ghc >= 7.0.0) default-language: Haskell2010