On FreeBSD, close can fail with ECONNRESET

Seen in CI. See: https://bugs.freebsd.org/bugzilla/show_bug.cgi?id=159179
mirage · Sep 25, 2024 · a242ccd · a242ccd
1 parent 2473de3
commit a242ccd
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/unix/unix_flow.ml b/unix/unix_flow.ml
@@ -23,7 +23,12 @@ let close t =
     t.closed <- true;
     opt_cancel t.current_read;
     opt_cancel t.current_write;
-    Lwt_unix.close t.fd
+    Lwt.catch
+      (fun () -> Lwt_unix.close t.fd)
+      (function
+        | Unix.Unix_error (Unix.ECONNRESET, _, _) -> Lwt.return_unit    (* FreeBSD *)
+        | ex -> raise ex
+      )
   )
 
 let pp_error f = function