establish_server_generic: handle ECONNABORTED

Call accept again if ECONNABORTED. Fixes ocsigen#829
reynir · Feb 11, 2021 · 274b83f · 274b83f
1 parent b4ebb85
commit 274b83f
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/src/unix/lwt_io.ml b/src/unix/lwt_io.ml
@@ -1597,8 +1597,14 @@ let establish_server_generic
 
   let rec accept_loop () =
     let try_to_accept =
-      Lwt_unix.accept listening_socket >|= fun x ->
-      `Accepted x
+      Lwt.catch
+        (fun () ->
+           Lwt_unix.accept listening_socket >|= fun x ->
+           `Accepted x)
+        (function
+          | Unix.Unix_error (Unix.ECONNABORTED, _, _) ->
+            Lwt.return `Try_again
+          | e -> Lwt.fail e)
     in
 
     Lwt.pick [try_to_accept; should_stop] >>= function
@@ -1624,6 +1630,8 @@ let establish_server_generic
 
       Lwt.wakeup_later notify_listening_socket_closed ();
       Lwt.return_unit
+    | `Try_again ->
+      accept_loop ()
   in
 
   let server =