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 0b8496b commit 776a767Copy full SHA for 776a767
src/unix/luv_unix.ml
@@ -20,9 +20,9 @@ struct
20
let storage = Ctypes.(raw_address_of_ptr (to_voidp (addr os_fd))) in
21
from_unix_helper unix_fd storage;
22
if C.Functions.Os_fd.is_invalid_handle_value os_fd then
23
- Result.Error `EBADF
+ Error `EBADF
24
else
25
- Result.Ok os_fd
+ Ok os_fd
26
27
external to_unix_helper : nativeint -> Unix.file_descr =
28
"luv_os_fd_to_unix_fd"
@@ -43,9 +43,9 @@ struct
43
let storage = Ctypes.(raw_address_of_ptr (to_voidp (addr os_socket))) in
44
45
if C.Functions.Os_fd.is_invalid_socket_value os_socket then
46
47
48
- Result.Ok os_socket
+ Ok os_socket
49
50
51
"luv_os_socket_to_unix_fd"
0 commit comments