@@ -250,9 +250,8 @@ frameSender ctx@Context{outputQ,connectionWindow,encodeDynamicTable}
250250 Nothing -> closed ctx strm Finished
251251 _ -> return ()
252252 flushN total
253− atomically $ do
254− modifyTVar' connectionWindow (subtract datPayloadLen)
255− modifyTVar' (streamWindow strm) (subtract datPayloadLen)
253+ atomically $ modifyTVar' connectionWindow (subtract datPayloadLen)
254+ atomically $ modifyTVar' (streamWindow strm) (subtract datPayloadLen)
256255
257256 fillFrameHeader ftyp len sid flag buf = encodeFrameHeaderBuf ftyp hinfo buf
258257 where