diff --git a/src/Simplex/Messaging/Agent.hs b/src/Simplex/Messaging/Agent.hs index 5ef3ab9b8..1ceed1f6e 100644 --- a/src/Simplex/Messaging/Agent.hs +++ b/src/Simplex/Messaging/Agent.hs @@ -1963,7 +1963,7 @@ subscriber c@AgentClient {subQ, msgQ} = forever $ do runExceptT (processSMPTransmission c t) >>= \case Left e -> do logError $ tshow e - atomically $ writeTBQueue subQ ("", "", APC SAEConn $ ERR e) + -- atomically $ writeTBQueue subQ ("", "", APC SAEConn $ ERR e) Right _ -> return () cleanupManager :: AgentClient -> AM' ()