Establish connection on any random IP address if DNS resolves multiple IP address

[neeraj97]

connectSocket :: [NS.AddrInfo] -> IO NS.Socket
connectSocket [] = error "connectSocket: unexpected empty list"
connectSocket (addr:rest) = tryConnect >>= \case
  Right sock -> return sock
  Left err   -> if null rest
                then throwIO err
                else connectSocket rest
  where
    tryConnect :: IO (Either IOError NS.Socket)
    tryConnect = bracketOnError createSock NS.close $ \sock ->
      try (NS.connect sock $ NS.addrAddress addr) >>= \case
      Right () -> return (Right sock)
      Left err -> NS.close sock >> return (Left err)
      where
        createSock = NS.socket (NS.addrFamily addr)
                               (NS.addrSocketType addr)
                               (NS.addrProtocol addr)

The code connects only to first received IP address.

Ideally if DNS resolves to same set of IP addresses and also same set of order. Only the first IP address is used establishing connection. So the same IP address always receives the connection and so incase of service startup which establishes connection for cluster node refresh and in subscribe cmd it is only done on the same IP address(same node) gets the requests.
Other nodes can also be used for the same.