From d442fcbbe5bc40d903b25bd21fd2a9f2b8dd4cc6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 28 Mar 2026 15:17:06 +0100
Subject: Task data type

---
 src/Command/Run.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Command')

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 ""
-- 
cgit v1.2.3