git.iko.soy/typeable/wai
on master help sign in
honour Connection: Close for responses without body
c34ef6dLuite Stegeman
warp/Network/Wai/Handler/Warp.hs+2−2
compare with master
unifiedsplit
@@ -394,7 +394,7 @@ sendResponse th req socket (ResponseBuilder s hs b)
394 $ toLazyByteString
394 $ toLazyByteString
395 $ headers (httpVersion req) s hs False
395 $ headers (httpVersion req) s hs False
396 T.tickle th
396 T.tickle th
397− return True
397+ return isPersist
398 where
398 where
399 headers' = headers (httpVersion req) s hs isChunked'
399 headers' = headers (httpVersion req) s hs isChunked'
400 b' = if isChunked'
400 b' = if isChunked'
@@ -414,7 +414,7 @@ sendResponse th req socket (ResponseEnumerator res) =
414 liftIO $ Sock.sendMany socket
414 liftIO $ Sock.sendMany socket
415 $ L.toChunks $ toLazyByteString
415 $ L.toChunks $ toLazyByteString
416 $ headers (httpVersion req) s hs False
416 $ headers (httpVersion req) s hs False
417− return True
417+ return isPersist
418 go s hs = chunk'
418 go s hs = chunk'
419 $ E.enumList 1 [headers (httpVersion req) s hs isChunked']
419 $ E.enumList 1 [headers (httpVersion req) s hs isChunked']
420 $$ E.joinI $ builderToByteString -- FIXME unsafeBuilderToByteString
420 $$ E.joinI $ builderToByteString -- FIXME unsafeBuilderToByteString