@@ -178,9 +178,7 @@ frameSender ctx@Context{outputQ,connectionWindow}
178178 canFitDataFrame total = total + frameHeaderLength < connBufferSize
179179
180180 -- Re-enqueue the stream in the output queue if more output is immediately
181− -- available; do nothing otherwise. If the stream is not finished, it must
182− -- already have been written to the 'TVar' owned by 'waiter', which will
183− -- put it back into the queue when more output becomes available.
181+ -- available; do nothing otherwise.
184182 maybeEnqueueNext :: Stream -> Control DynaNext -> IO ()
185183 maybeEnqueueNext strm (CNext next) = do
186184 let out = ONext strm next
@@ -190,6 +188,9 @@ frameSender ctx@Context{outputQ,connectionWindow}
190188 else do
191189 pri <- readIORef $ streamPriority strm
192190 enqueue outputQ out pri
191+ -- If the streaming is not finished, it must already have been
192+ -- written to the 'TVar' owned by 'waiter', which will
193+ -- put it back into the queue when more output becomes available.
193194 maybeEnqueueNext _ _ = return ()
194195
195196