summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Job.hs2
1 files changed, 1 insertions, 1 deletions
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'