@@ -394,7 +394,7 @@ sendResponse th req socket (ResponseBuilder s hs b)
394394 $ toLazyByteString
395395 $ headers (httpVersion req) s hs False
396396 T.tickle th
397− return True
397+ return isPersist
398398 where
399399 headers' = headers (httpVersion req) s hs isChunked'
400400 b' = if isChunked'
@@ -414,7 +414,7 @@ sendResponse th req socket (ResponseEnumerator res) =
414414 liftIO $ Sock.sendMany socket
415415 $ L.toChunks $ toLazyByteString
416416 $ headers (httpVersion req) s hs False
417− return True
417+ return isPersist
418418 go s hs = chunk'
419419 $ E.enumList 1 [headers (httpVersion req) s hs isChunked']
420420 $$ E.joinI $ builderToByteString -- FIXME unsafeBuilderToByteString