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 ()