@@ -93,6 +93,8 @@ toSVar sv m = toStreamVar sv (toStream m)
93-- Concurrency control
93-- Concurrency control
94-------------------------------------------------------------------------------
94-------------------------------------------------------------------------------
96+-- XXX need to write these in direct style otherwise they will break fusion.
96-- | Specify the maximum number of threads that can be spawned concurrently
98-- | Specify the maximum number of threads that can be spawned concurrently
97-- when using concurrent streams. This is not the grand total number of threads
99-- when using concurrent streams. This is not the grand total number of threads
98-- but maximum threads at each point of concurrency.
100-- but maximum threads at each point of concurrency.