@@ -316,15 +316,18 @@ sendResponse th req hv socket (ResponseFile s hs fp) = do
316 -- FIXME do we want to tickle here?
316 -- FIXME do we want to tickle here?
317 threadWaitWrite fd
317 threadWaitWrite fd
318 tickler cont
318 tickler cont
319−sendResponse _FIXMEth req hv socket (ResponseBuilder s hs b)
319+sendResponse th req hv socket (ResponseBuilder s hs b)
320 | hasBody s req = do
320 | hasBody s req = do
321+ toByteStringIO (\bs -> do
321− toByteStringIO (Sock.sendAll socket) b'
322+ Sock.sendAll socket bs
322 return isKeepAlive
324 return isKeepAlive
323 | otherwise = do
325 | otherwise = do
324 Sock.sendMany socket
326 Sock.sendMany socket
325 $ L.toChunks
327 $ L.toChunks
326 $ toLazyByteString
328 $ toLazyByteString
327 $ headers hv s hs False
329 $ headers hv s hs False
328 return True
331 return True
330 headers' = headers hv s hs isChunked'
333 headers' = headers hv s hs isChunked'