@@ -67,18 +67,18 @@ frameSender ctx@Context{outputQ,controlQ,connectionWindow,encodeDynamicTable}
6767 ii settings = loop `E.catch` ignore
6868 where
6969 dequeueControl = Left <$> readTQueue controlQ
70− dequeueData = Right <$> do
70+ dequeueOutput = Right <$> do
7171 w <- readTVar connectionWindow
7272 check (w > 0)
7373 dequeueSTM outputQ
7474
7575 loop = do
76− ex <- atomically (dequeueControl `orElse` dequeueData)
76+ ex <- atomically (dequeueControl `orElse` dequeueOutput)
7777 case ex of
7878 Left ctl -> control ctl
7979 Right (_,pre,out) -> do
8080 writeIORef (streamPrecedence (outputStream out)) pre
81− switch out
81+ output out
8282
8383 control CFinish = return ()
8484 control (CGoaway frame) = connSendAll frame
@@ -94,7 +94,7 @@ frameSender ctx@Context{outputQ,controlQ,connectionWindow,encodeDynamicTable}
9494 setLimitForEncoding siz dyntbl
9595 loop
9696
97− switch out@(ONext strm curr binfo) = do
97+ output out@(ONext strm curr binfo) = do
9898 whenReadyOrEnqueueAgain strm binfo out $ \sws -> do
9999 cws <- atomically $ readTVar connectionWindow
100100 let !lim = min cws sws
@@ -103,7 +103,7 @@ frameSender ctx@Context{outputQ,controlQ,connectionWindow,encodeDynamicTable}
103103 fillDataHeaderSend strm 0 datPayloadLen mnext
104104 maybeEnqueueNext strm mnext binfo
105105 loop
106− switch out@(OResponse strm rsp binfo) = do
106+ output out@(OResponse strm rsp binfo) = do
107107 whenReadyOrEnqueueAgain strm binfo out $ \sws -> do
108108 -- Header frame and Continuation frame
109109 let sid = streamNumber strm