module Stagen.Job where import Control.Monad (sequence) import Control.Parallel.Strategies runJobs :: Monad m => Int -> [m a] -> m [a] runJobs n = sequence . runEval . evalBuffer n rseq