@@ -17,7 +17,7 @@ module Streamly.Internal.Data.Fold.Concurrent.Channel
1717 , inspect
1818
1919 -- * Fold operations
20− , evalWith
20+ , parEval
2121 )
2222where
2323
@@ -42,9 +42,9 @@ import Streamly.Internal.Data.Stream.Channel.Types
4242-- | Evaluate the fold asynchronously in a worker thread separate from the
4343-- driver thread.
4444--
45−{-# INLINABLE evalWith #-}
46−evalWith :: MonadAsync m => (Config -> Config) -> Fold m a b -> Fold m a b
47−evalWith modifier f =
45+{-# INLINABLE parEval #-}
46+parEval :: MonadAsync m => (Config -> Config) -> Fold m a b -> Fold m a b
47+parEval modifier f =
4848 Fold step initial extract
4949
5050 where
@@ -79,7 +79,7 @@ evalWith modifier f =
7979 $ withDiagMVar
8080 (svarInspectMode chan)
8181 (dumpSVar chan)
82− "evalWith: waiting to drain"
82+ "parEval: waiting to drain"
8383 $ takeMVar (outputDoorBellFromConsumer chan)
8484 -- XXX remove recursion
8585 extract chan