remove print

This commit is contained in:
Alexander Bondarenko
2024-05-06 19:33:54 +03:00
committed by GitHub
parent 1c73ac638f
commit f2af239c30
-1
View File
@@ -1745,7 +1745,6 @@ diffSubscriptions AgentClient {smpClients, subscrConns} = do
atomically (tryReadTMVar sessionVar) >>= \case
Just (Right smp) -> readTVarIO (sentSubs smp)
_ -> mempty <$ putStrLn ("no client for " <> show srv)
print (agentConns, clientSubscribed, agentConns `S.intersection` clientSubscribed)
pure
SubscriptionsDiff
{ inBoth = S.size $ agentConns `S.intersection` clientSubscribed,