@@ -35,7 +35,7 @@ response Context{outputQ} th strm pri req rsp = do
3535 -- If the application exits, streaming would be also closed.
3636 -- Since 'StreamingBody' is loop, we cannot control it.
3737 -- So, let's serialize 'Builder' with a designated queue.
38− sq <- newTBQueueIO 10
38+ sq <- newTBQueueIO 10 -- fixme: hard coding: 10
3939 tvar <- newTVarIO SyncNone
4040 enqueue outputQ (OResponse strm rsp (Persist sq tvar)) pri
4141 let push b = do