change to new waitForAllRunningCommandActions

waitForAllRunningCommandActions is a subset of finishCommandActions
and more appropriate for what is being done here: Just a concurrency
barrier.
This commit is contained in:
Joey Hess 2020-05-26 14:00:51 -04:00
parent 864ba4ecaa
commit 3824645368
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -647,7 +647,7 @@ seekSyncContent o rs currbranch = do
(return (gokey mvar bloom)) (return (gokey mvar bloom))
(const noop) (const noop)
[] []
finishCommandActions waitForAllRunningCommandActions
liftIO $ not <$> isEmptyMVar mvar liftIO $ not <$> isEmptyMVar mvar
where where
seekworktree mvar l bloomfeeder = seekworktree mvar l bloomfeeder =