#if __GLASGOW_HASKELL__ >= 702
#endif
module Control.Monad.Par.Meta.SMP (
Par
, Meta.IVar
, ParFuture(..)
, ParIVar(..)
, runPar
, runParIO
) where
import Control.Applicative (Applicative)
import Control.Monad.Par.Class
import qualified Control.Monad.Par.Meta as Meta
import qualified Control.Monad.Par.Meta.Resources.SMP as SMP
newtype Par a = Par { unPar :: Meta.Par a }
deriving (Functor, Applicative, Monad,
ParFuture Meta.IVar, ParIVar Meta.IVar)
tries :: Int
tries = 20
resource :: Meta.Resource
resource = SMP.mkResource tries
runPar :: Par a -> a
runParIO :: Par a -> IO a
runPar = Meta.runMetaPar resource . unPar
runParIO = Meta.runMetaParIO resource . unPar