From d058e7889a8119a1f20b8f94bb90ddc8e99b7568 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Fri, 21 May 2021 19:38:54 +0200
Subject: [PATCH] Move a comment to the right place
---
src/Network/Rpc/Connection.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/Network/Rpc/Connection.hs b/src/Network/Rpc/Connection.hs
index 1b0efca..24fefa8 100644
--- a/src/Network/Rpc/Connection.hs
+++ b/src/Network/Rpc/Connection.hs
@@ -76,9 +76,9 @@ connectTCP host port = do
-- The 'raceConnections'-async is 'link'ed to this thread, so 'readMVar' is interrupted when all connection attempts fail
sock <-
(withAsync (interruptible raceConnections) (link >=> const (readMVar sockMVar))
+ -- As soon as we have an open connection, stop spawning more connections
`finally` (mapM_ (cancel . snd) =<< readMVar connectTasksMVar))
`onException` (mapM_ Socket.close =<< tryTakeMVar sockMVar)
- -- As soon as we have an open connection, stop spawning more connections
pure sock
where
hints :: Socket.AddrInfo
--
GitLab