simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-05 19:00:32 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

better error message on IO failure

Browse source
This commit is contained in:
Simon Cruanes 2024-08-01 10:51:35 -04:00
parent 5130653068
commit 93a30366e1
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/core/IO.ml
View file

@ -32,11 +32,13 @@ module Output = struct
len := !len - n len := !len - n
| exception | exception
Unix.Unix_error Unix.Unix_error
( ( Unix.EBADF | Unix.ENOTCONN | Unix.ESHUTDOWN ( (( Unix.EBADF | Unix.ENOTCONN | Unix.ESHUTDOWN
| Unix.ECONNRESET | Unix.EPIPE ), | Unix.ECONNRESET | Unix.EPIPE ) as err),
_, fn,
_ ) -> _ ) ->
failwith "write failed" failwith
@@ Printf.sprintf "write failed in %s: %s" fn
(Unix.error_message err)
| exception | exception
Unix.Unix_error Unix.Unix_error
((Unix.EWOULDBLOCK | Unix.EAGAIN | Unix.EINTR), _, _) -> ((Unix.EWOULDBLOCK | Unix.EAGAIN | Unix.EINTR), _, _) ->