fix waiting for all started feed downloads with -J

importfeed bug fix: When -J was used with multiple feeds, some feeds did
not get their items downloaded.

In my case, I had added a feed to the end of the list, and no items from it
were ever downloaded.

Sponsored-by: Leon Schuermann on Patreon
This commit is contained in:
Joey Hess 2023-07-11 22:08:19 -04:00
parent 04313e1feb
commit 7fc6503812
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 3 additions and 1 deletions

View file

@ -101,7 +101,7 @@ seek o = startConcurrency commandStages $ do
return m
else
let (pending, rest) = M.partition ispending m
in if M.null pending
in if M.null pending || not (M.null rest)
then retry
else do
putTMVar dlst rest