From e199162e1f52ad7431596d3503b6742d7308dda6 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Tue, 3 Sep 2024 15:40:26 -0400
Subject: [PATCH] fix: also make server socket nonblocking

---
 src/moonpool-io/io_server.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/moonpool-io/io_server.ml b/src/moonpool-io/io_server.ml
index 362511ba..d26a1e07 100644
--- a/src/moonpool-io/io_server.ml
+++ b/src/moonpool-io/io_server.ml
@@ -122,7 +122,7 @@ let to_tcp_server (self : t) : IO.TCP_server.builder =
             let fd = Fd.create sock in
             fd, true (* Because we're creating the socket ourselves *)
         in
-        MIO.Unix.clear_nonblock sock;
+        MIO.Unix.set_nonblock sock;
         MIO.Unix.setsockopt_optint sock Unix.SO_LINGER None;
         if should_bind then (
           let inet_addr = Unix.inet_addr_of_string self.addr in