Fix a silly file descriptor leak.

benchmarks/StaticHttp.hs

@@ -65,7 +65,7 @@ client sock = (`finally` sClose sock) loop
   loop = do
     (bs, ereq) <- parseM (recv sock 4096) request
     case ereq of
-      Right (req,hdrs) | requestMethod req == "GET" ->
+      Right (req,hdrs) | requestMethod req == "GET" -> do
         bracket (openFd (B.unpack (requestUri req)) ReadOnly Nothing
                         defaultFileFlags{nonBlock=True}) closeFd $ \fd -> do
           st <- getFdStatus fd
@@ -81,6 +81,6 @@ client sock = (`finally` sClose sock) loop
             fix $ \sendLoop -> do
               s <- F.read fd 16384
               unless (B.null s) $ sendAll sock s >> sendLoop
-          unless (requestProtocol req == "1.0") loop
-      _ | B.null bs -> return ()
-        | otherwise -> sendAll sock "HTTP/1.1 400 Bad Request\r\nConnection: close\r\n\r\n"
+        unless (requestVersion req == "1.0") loop
+      err | B.null bs -> return ()
+          | otherwise -> print err >> sendAll sock "HTTP/1.1 400 Bad Request\r\nConnection: close\r\n\r\n"