honour Connection: Close for responses without body (fix compile)
commitc600e088a26bf50f1c613ec94b3cececaeb407f8
authorLuite Stegeman <stegeman@gmail.com>
dateMon 10 Oct 2011, 01:27 (15 years ago)
parentc34ef6d
warp/Network/Wai/Handler/Warp.hs+1−1
@@ -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 isPersist
417+ return (checkPersist req)
418418 go s hs = chunk'
419419 $ E.enumList 1 [headers (httpVersion req) s hs isChunked']
420420 $$ E.joinI $ builderToByteString -- FIXME unsafeBuilderToByteString