From 6a3ffdfd9b3829dd7224e120f46126c269b76efd 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 f058512e..ae35a816 100644 --- a/src/Tiny_httpd.ml +++ b/src/Tiny_httpd.ml @@ -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