@@ -1226,6 +1226,8 @@ toParallelSVar svar winfo = Fold step initial extract
1226 initial = return ()
1226 initial = return ()
1228 step () x = liftIO $ do
1228 step () x = liftIO $ do
1229+ -- XXX we can have a separate fold for unlimited buffer case to avoid a
1230+ -- branch in the step here.
1229 decrementBufferLimit svar
1231 decrementBufferLimit svar
1230 void $ send svar (ChildYield x)
1232 void $ send svar (ChildYield x)