From 6c1e1f18d4dcb6ab7b88f1e7da4f6d741707d2cb Mon Sep 17 00:00:00 2001 From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com> Date: Mon, 30 Sep 2024 15:08:39 +0400 Subject: [PATCH] Revert "log using events" This reverts commit c71f0d7beb447cd132fe603cd7aa9b825d4df1b7. --- src/Simplex/Messaging/Agent/NtfSubSupervisor.hs | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/Simplex/Messaging/Agent/NtfSubSupervisor.hs b/src/Simplex/Messaging/Agent/NtfSubSupervisor.hs index 5f3770416..95b1bc61b 100644 --- a/src/Simplex/Messaging/Agent/NtfSubSupervisor.hs +++ b/src/Simplex/Messaging/Agent/NtfSubSupervisor.hs @@ -60,7 +60,6 @@ runNtfSupervisor c = do ns <- asks ntfSupervisor forever $ do logInfo "#################### runNtfSupervisor - in forever loop" - notifyInternalError' c "#################### runNtfSupervisor - in forever loop" cmd <- atomically . readTBQueue $ ntfSubQ ns handleErr . agentOperationBracket c AONtfNetwork waitUntilActive $ runExceptT (processNtfCmd c cmd) >>= \case @@ -199,7 +198,6 @@ runNtfWorker :: AgentClient -> NtfServer -> Worker -> AM () runNtfWorker c srv Worker {doWork} = forever $ do logInfo "#################### runNtfWorker - in forever loop" - notifyInternalError' c "#################### runNtfWorker - in forever loop" waitForWork doWork ExceptT $ agentOperationBracket c AONtfNetwork throwWhenInactive $ runExceptT runNtfOperation where @@ -369,7 +367,6 @@ runNtfWorker c srv Worker {doWork} = runNtfSMPWorker :: AgentClient -> SMPServer -> Worker -> AM () runNtfSMPWorker c srv Worker {doWork} = forever $ do logInfo "#################### runNtfSMPWorker - in forever loop" - notifyInternalError' c "#################### runNtfSMPWorker - in forever loop" waitForWork doWork ExceptT $ agentOperationBracket c AONtfNetwork throwWhenInactive $ runExceptT runNtfSMPOperation where