From b0a25f6640ee06640e175f0e0a2bf32ad336883d Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Mon, 22 May 2023 07:02:19 +0300 Subject: [PATCH] minor review --- hbs2-core/lib/HBS2/Net/Messaging/TCP.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/hbs2-core/lib/HBS2/Net/Messaging/TCP.hs b/hbs2-core/lib/HBS2/Net/Messaging/TCP.hs index 60d15a40..e3f0916e 100644 --- a/hbs2-core/lib/HBS2/Net/Messaging/TCP.hs +++ b/hbs2-core/lib/HBS2/Net/Messaging/TCP.hs @@ -343,6 +343,7 @@ connectPeerTCP env peer = liftIO do connect (show i) (show p) $ \(sock, remoteAddr) -> do spawnConnection Client env sock remoteAddr -- FIXME: tcp-pex. Где-то здесь добавить этих пиров в пекс ? + -- REVIEW: так что в итоге? где-то здесь? shutdown sock ShutdownBoth runMessagingTCP :: forall m . MonadIO m => MessagingTCP -> m ()