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

tiny refactor

Browse source
This commit is contained in:
Simon Cruanes 2021-12-12 20:52:23 -05:00
parent a953f0799b
commit 6a3ffdfd9b
No known key found for this signature in database
GPG key ID: 4AC01D0849AA62B6
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Tiny_httpd.ml
View file

@ -964,8 +964,8 @@ let find_map f l =
in aux f l
let handle_client_ (self:t) (client_sock:Unix.file_descr) : unit =
let _ = Unix.(setsockopt_float client_sock SO_RCVTIMEO self.timeout) in
let _ = Unix.(setsockopt_float client_sock SO_SNDTIMEO self.timeout) in
Unix.(setsockopt_float client_sock SO_RCVTIMEO self.timeout);
Unix.(setsockopt_float client_sock SO_SNDTIMEO self.timeout);
let ic = Unix.in_channel_of_descr client_sock in
let oc = Unix.out_channel_of_descr client_sock in
let buf = Buf_.create() in