Fix

tibbe · Mar 24, 2010 · 5676737 · 5676737
1 parent a9caaf1
commit 5676737
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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