From 400382c9a39bc42cdc11a700ef9e9ee83f1041a3 Mon Sep 17 00:00:00 2001 From: Romain Beauxis Date: Sat, 18 Jan 2025 13:22:50 -0600 Subject: [PATCH] Cleanup --- src/core/io/srt_io.ml | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/src/core/io/srt_io.ml b/src/core/io/srt_io.ml index 173230a3ee..5b0ee7c390 100644 --- a/src/core/io/srt_io.ml +++ b/src/core/io/srt_io.ml @@ -89,25 +89,25 @@ let getaddrinfo ~(log : Log.t) ~prefer_address address port = match prefer_address with | `System_default -> first_address | `Ipv4 -> - let rec f ptr cur = + let rec f ptr = let sockaddr = !@ptr in - if is_null sockaddr then cur + if is_null sockaddr then first_address else ( match !@(sockaddr |-> Sockaddr.sa_family) with | id when id = af_inet -> sockaddr - | _ -> f (ptr +@ 1) cur) + | _ -> f (ptr +@ 1)) in - f ptr first_address + f ptr | `Ipv6 -> - let rec f ptr cur = + let rec f ptr = let sockaddr = !@ptr in - if is_null sockaddr then cur + if is_null sockaddr then first_address else ( match !@(sockaddr |-> Sockaddr.sa_family) with | id when id = af_inet6 -> sockaddr - | _ -> f (ptr +@ 1) cur) + | _ -> f (ptr +@ 1)) in - f ptr first_address + f ptr in if log#active 5 then log#f 5 "Address %s:%n resolved to: %s" address port