From 0c94a8aab0a39b8be13508be7a263c21c3364dfa Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Sun, 12 Dec 2021 20:52:23 -0500 Subject: [PATCH] tiny refactor --- src/Tiny_httpd.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Tiny_httpd.ml b/src/Tiny_httpd.ml index c2cce4f4..c3ce10fd 100644 --- a/src/Tiny_httpd.ml +++ b/src/Tiny_httpd.ml @@ -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