cleanup: close socket

2016-02-22 10:35:29 +01:00
parent 6a4b845639
commit aada57a374
1 changed files with 3 additions and 1 deletions
--- a/request.zp
+++ b/request.zp
@@ -64,7 +64,9 @@
        (let loop ((recvd (net:recv sock BSIZE))
                   (bytes b{}))
          (if (or (falsy? (length recvd)) (string:ends-with (byte-vector->string recvd) "\r\n"))
-            (parse-request (byte-vector->string (++ bytes recvd)) scheme path req-headers)
+            (begin
+              (net:close-socket sock)
+              (parse-request (byte-vector->string (++ bytes recvd)) scheme path req-headers))
            (loop (net:recv sock BSIZE) (++ bytes recvd))))))))

  (get (lambda (path . headers)