diff options
Diffstat (limited to 'src/Command')
| -rw-r--r-- | src/Command/Run.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Command/Run.hs b/src/Command/Run.hs index b299931..776f869 100644 --- a/src/Command/Run.hs +++ b/src/Command/Run.hs @@ -359,12 +359,12 @@ cmdRun (RunCommand RunOptions {..} args) = do case jobsetJobsEither jobset of Right jobs -> do - outs <- runJobs mngr output jobs $ case roRerun of + tasks <- runJobs mngr output jobs $ case roRerun of RerunExplicit -> \jid status -> jid `elem` jobsetExplicitlyRequested jobset || jobStatusFailed status RerunFailed -> \_ status -> jobStatusFailed status RerunAll -> \_ _ -> True RerunNone -> \_ _ -> False - let findJob name = snd <$> find ((name ==) . jobName . fst) outs + let findJob name = taskStatus <$> find ((name ==) . jobName . taskJob) tasks statuses = map findJob names forM_ (outputTerminal output) $ \tout -> do line <- newLine tout "" |