From 90a4709f4b6cafcd6be9461046a26ad6fb641869 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 15 Nov 2025 18:58:37 +0100
Subject: Always rerun cancelled jobs

---
 src/Job.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Job.hs')

diff --git a/src/Job.hs b/src/Job.hs
index 1d4ade3..6445f5f 100644
--- a/src/Job.hs
+++ b/src/Job.hs
@@ -254,7 +254,7 @@ runJobs mngr@JobManager {..} tout jobs rerun = do
                     Nothing -> do
                         let jdir = jmDataDir </> jobStorageSubdir (jobId job)
                         readStatusFile tout job jdir >>= \case
-                            Just status | not (rerun (jobId job) status) -> do
+                            Just status | status /= JobCancelled && not (rerun (jobId job) status) -> do
                                 let status' = JobPreviousStatus status
                                 liftIO $ atomically $ writeTVar outVar status'
                                 return status'
-- 
cgit v1.2.3