do not forward agent error

This commit is contained in:
Evgeny Poberezkin
2024-05-04 00:19:09 +01:00
parent acaa5d1d9f
commit ca4a7b561e
+1 -1
View File
@@ -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' ()