We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 8164a13 commit 8118c1fCopy full SHA for 8118c1f
lib_eio_posix/low_level.ml
@@ -26,7 +26,7 @@ let await_writable fd =
26
let rec do_nonblocking ty fn fd =
27
try fn fd with
28
| Unix.Unix_error (EINTR, _, _) -> do_nonblocking ty fn fd (* Just in case *)
29
- | Unix.Unix_error((EAGAIN | EWOULDBLOCK | EINPROGRESS), _, _) ->
+ | Unix.Unix_error((EAGAIN | EWOULDBLOCK), _, _) ->
30
Sched.enter (fun t k ->
31
match ty with
32
| Read -> Sched.await_readable t k fd
0 commit comments