wip. fixing TCP busyloop

hbs2-core/lib/HBS2/Net/Messaging/TCP.hs

@@ -391,11 +391,11 @@ runMessagingTCP env@MessagingTCP{..} = liftIO do
         forever $ void $ runMaybeT do
           -- client sockets
 
-          -- смотрим к кому надо
+          who <- atomically $ readTQueue _tcpConnDemand
-          who <- atomically $ fix \next -> do
+
-                   who <- readTQueue _tcpConnDemand
+          already <- readTVarIO _tcpPeerConn <&> HM.member who
-                   already <- readTVar _tcpPeerConn <&> HM.member who
+
-                   if not already then pure who else next
+          when already mzero
 
           debug $ "DEMAND:" <+> pretty who