From 5676737b77e338998245e821e617fefd51a56958 Mon Sep 17 00:00:00 2001 From: Bryan O'Sullivan Date: Tue, 23 Mar 2010 23:01:37 -0700 Subject: [PATCH] Fix --- benchmarks/StaticHttp.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/benchmarks/StaticHttp.hs b/benchmarks/StaticHttp.hs index 738bcb4..a8afa82 100644 --- a/benchmarks/StaticHttp.hs +++ b/benchmarks/StaticHttp.hs @@ -69,7 +69,7 @@ client sock = (`finally` sClose sock) loop let http10 = requestVersion req == "1.0" connection = lookupHeader "Connection" hdrs keepAlive = (http10 && connection == ["Keep-Alive"]) || - connection /= ["Close"] + (not http10 && connection /= ["Close"]) bracket (openFd (B.unpack (requestUri req)) ReadOnly Nothing defaultFileFlags{nonBlock=True}) closeFd $ \fd -> do st <- getFdStatus fd