Source

ocaml-core / base / core / extended / lib / exception_check.ml

Diff from to

File base/core/extended/lib/exception_check.ml

       U.set_nonblock s;
       while true do
         try
-          let { U.Select_fds.read = rd } =
+          let { U.Select_fds.read = rd; _ } =
             U.select ~read:(s :: !clients) ~write:[] ~except:[]
               ~timeout:(- 1.0) ()
           in