simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-06 11:15:35 -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 b684835901
commit 0c94a8aab0
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

@ -1027,8 +1027,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 ~size:self.buf_size () in