iitalics
/
talircd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove redundant setsocketopt

This commit is contained in:
tali 2024-02-02 11:53:03 -05:00
parent cac7a091fe
commit 50d27b7cd9
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/server/server.ml
View File

@ -19,8 +19,6 @@ let bind_server
~(listen_backlog : int) ~(listen_backlog : int)
: fd Lwt.t = : fd Lwt.t =
let fd = Lwt_unix.socket PF_INET SOCK_STREAM 0 in let fd = Lwt_unix.socket PF_INET SOCK_STREAM 0 in
Lwt_unix.setsockopt fd SO_KEEPALIVE false;
Lwt_unix.setsockopt fd SO_REUSEPORT false;
let srv_adr = Unix.ADDR_INET (Unix.inet_addr_any, port) in let srv_adr = Unix.ADDR_INET (Unix.inet_addr_any, port) in
let* () = Lwt_unix.bind fd srv_adr in let* () = Lwt_unix.bind fd srv_adr in
Lwt_unix.listen fd listen_backlog; Lwt_unix.listen fd listen_backlog;