From a7516689b1183446d443362552cb57759447d519 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?St=C3=A9phane=20Lavergne?= <lis@imars.com>
Date: Mon, 7 Aug 2023 10:49:04 -0400
Subject: [PATCH] Stop listening after accept loop

---
 src/Tiny_httpd_server.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Tiny_httpd_server.ml b/src/Tiny_httpd_server.ml
index b1d6fcd0..87ee9012 100644
--- a/src/Tiny_httpd_server.ml
+++ b/src/Tiny_httpd_server.ml
@@ -972,6 +972,7 @@ module Unix_tcp_server_ = struct
           done;
 
           (* Wait for all threads to be done: this only works if all threads are done. *)
+          Unix.close sock;
           Sem_.acquire self.sem_max_connections.max self.sem_max_connections;
           ());
     }