diff --git a/hbs2-core/lib/HBS2/Net/Messaging/TCP.hs b/hbs2-core/lib/HBS2/Net/Messaging/TCP.hs index 41edb5b8..cf44f686 100644 --- a/hbs2-core/lib/HBS2/Net/Messaging/TCP.hs +++ b/hbs2-core/lib/HBS2/Net/Messaging/TCP.hs @@ -443,7 +443,6 @@ runMessagingTCP env@MessagingTCP{..} = liftIO do when (isNothing co') do debug $ red "No session for" <+> pretty pip - pure () maybe1 co' (void $ fireTCP env pip (connectPeerTCP env pip)) $ \co -> do q' <- atomically $ readTVar (view tcpConnQ env) <&> HashMap.lookup co