diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-03-28 15:17:06 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-03-28 16:10:11 +0100 |
| commit | d442fcbbe5bc40d903b25bd21fd2a9f2b8dd4cc6 (patch) | |
| tree | bc29957a96a7471c79880deca85dfca13cb9a512 /src/Command/Run.hs | |
| parent | 91022a7aee30a51448dffbdc8765ba713994eb3c (diff) | |
Task data type
Diffstat (limited to 'src/Command/Run.hs')
| -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 "" |