cohttp-eio.Server: Don't blow up in callback on client read timeout.

mirage · Feb 8, 2024 · 2297e64 · 2297e64
1 parent 6ed9bae
commit 2297e64
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/cohttp-eio/src/server.ml b/cohttp-eio/src/server.ml
@@ -102,7 +102,13 @@ let callback { conn_closed; handler } ((_, peer_address) as conn) input output =
               m "%a: disconnected" Eio.Net.Sockaddr.pp peer_address)
         in
         conn_closed (conn, id)
-    | exception Eio.Io (Eio.Net.E (Connection_reset _), _) ->
+    | exception
+        Eio.Io
+          ( ( Eio.Net.E (Connection_reset _)
+            | Eio.Exn.X _
+            (* To catch the backend-specific Eio_unix.Unix_error
+               (ETIMEDOUT, _, _), at least *) ),
+            _ ) ->
         let () =
           Logs.info (fun m ->
               m "%a: connection reset" Eio.Net.Sockaddr.pp peer_address)