Always rerun cancelled jobsHEADmaster

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'