diff options
Diffstat (limited to 'src/Command')
| -rw-r--r-- | src/Command/Run.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Command/Run.hs b/src/Command/Run.hs index ddc166a..bd60bae 100644 --- a/src/Command/Run.hs +++ b/src/Command/Run.hs @@ -333,8 +333,10 @@ cmdRun (RunCommand RunOptions {..} args) = do threadCount <- newTVarIO (0 :: Int) let changeCount f = atomically $ do writeTVar threadCount . f =<< readTVar threadCount - let waitForJobs = atomically $ do - flip when retry . (0 <) =<< readTVar threadCount + let waitForJobs = do + atomically $ do + flip when retry . (0 <) =<< readTVar threadCount + waitForRemainingTasks mngr let loop _ Nothing = return () loop names (Just ( [], next )) = do |