ntf: fix endless worker loop (#1345)

2026-03-31 01:05:57 +00:00 · 2024-09-30 18:29:14 +04:00
parent a9576935cf
commit e808825c95
1 changed files with 1 additions and 0 deletions
--- a/src/Simplex/Messaging/Agent/Client.hs
+++ b/src/Simplex/Messaging/Agent/Client.hs
@@ -1868,6 +1868,7 @@ withWork c doWork getWork action =
 withWorkItems :: AgentClient -> TMVar () -> (DB.Connection -> IO (Either StoreError [Either StoreError a])) -> (NonEmpty a -> AM ()) -> AM ()
 withWorkItems c doWork getWork action = do
  withStore' c getWork >>= \case
+    Right [] -> noWork
    Right rs -> do
      let (errs, items) = partitionEithers rs
      case L.nonEmpty items of