Browse files

Fix

  • Loading branch information...
1 parent a9caaf1 commit 5676737b77e338998245e821e617fefd51a56958 @bos bos committed Mar 23, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 benchmarks/StaticHttp.hs
View
2 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

0 comments on commit 5676737

Please sign in to comment.