@@ -76,7 +76,7 @@ module Streamly.Internal.Data.Stream.Channel.Types
76 , stopWhen
76 , stopWhen
78 , interleaved
78 , interleaved
79− , bound
79+ , boundThreads
@@ -546,13 +546,14 @@ interleaved flag st = st { _interleaved = flag }
546getInterleaved :: Config -> Bool
546getInterleaved :: Config -> Bool
547getInterleaved = _interleaved
547getInterleaved = _interleaved
549+-- TODO: Make it consistently take effect everywhere.
549-- | Spawn bound threads (i.e., spawn threads using 'forkOS' instead of
551-- | Spawn bound threads (i.e., spawn threads using 'forkOS' instead of
550-- 'forkIO'). The default value is 'False'.
552-- 'forkIO'). The default value is 'False'.
552−-- Currently, this only takes effect for concurrent folds. TODO: Make it
554+-- Currently, this only takes effect only for concurrent folds.
553−-- consistently take effect everywhere.
554−bound :: Bool -> Config -> Config
555+boundThreads :: Bool -> Config -> Config
555−bound flag st = st { _bound = flag }
556+boundThreads flag st = st { _bound = flag }
557getBound :: Config -> Bool
558getBound :: Config -> Bool
558getBound = _bound
559getBound = _bound