[Haskell-cafe] parallele tolistM of the pipes module

[PICCA Frederic-Emmanuel]

Hello,

I would like to know how to write a parallele version of the 
pipes function:

toListM :: Monad m => Producer a m () -> m [a]
toListM = fold step begin done
  where
    step x a = x . (a:)
    begin = id
    done x = x []
{-# INLINABLE toListM #-}

I want to extract all the a from th epipes but concurrently.
is it possible ?

Cheers

Frederic