@@ -316,15 +316,18 @@ sendResponse th req hv socket (ResponseFile s hs fp) = do
316316 -- FIXME do we want to tickle here?
317317 threadWaitWrite fd
318318 tickler cont
319−sendResponse _FIXMEth req hv socket (ResponseBuilder s hs b)
319+sendResponse th req hv socket (ResponseBuilder s hs b)
320320 | hasBody s req = do
321− toByteStringIO (Sock.sendAll socket) b'
321+ toByteStringIO (\bs -> do
322+ Sock.sendAll socket bs
323+ T.tickle th) b'
322324 return isKeepAlive
323325 | otherwise = do
324326 Sock.sendMany socket
325327 $ L.toChunks
326328 $ toLazyByteString
327329 $ headers hv s hs False
330+ T.tickle th
328331 return True
329332 where
330333 headers' = headers hv s hs isChunked'