diff --git a/src/Network/Rpc.hs b/src/Network/Rpc.hs index ae8620b73123a6fdb9b5c7175b5e6188f263d46b..3eb406871a967fb3dfc49aed221245bdd7acccbf 100644 --- a/src/Network/Rpc.hs +++ b/src/Network/Rpc.hs @@ -631,7 +631,7 @@ newClientTCP host port = do raceConnections = do spawnConnectTask best threadDelay 200000 - -- Give the "best" address another try, in case the TCP SYN gets dropped + -- Give the "best" address another try, in case the TCP SYN gets dropped (kernel retry interval can be multiple seconds long) spawnConnectTask best threadDelay 100000 -- Try to connect to all other resolved addresses to prevent waiting for e.g. a long IPv6 connection timeout