module ParList where

import Control.Parallel.Strategies hiding (parList, evalList)

-- <<evalList
evalList :: Strategy a -> Strategy [a]
evalList strat []     = return []
evalList strat (x:xs) = do
  x'  <- strat x
  xs' <- evalList strat xs
  return (x':xs')
-- >>

-- <<parList
parList :: Strategy a -> Strategy [a]
parList strat = evalList (rparWith strat)
-- >>