@@ -104,7 +104,9 @@ runOneLimited st m0 winfo = go m0
105 liftIO $ decrementBufferLimit sv
105 liftIO $ decrementBufferLimit sv
106 foldStreamShared st yieldk single stop m
106 foldStreamShared st yieldk single stop m
107− else liftIO $ cleanupSVarFromWorker sv
108+ liftIO $ cleanupSVarFromWorker sv
109+ liftIO $ sendStop sv winfo
109 sv = fromJust $ streamVar st
111 sv = fromJust $ streamVar st