Commit cab9400a authored by Petr Pudlak's avatar Petr Pudlak
Browse files

Provide a more detailed messages when cancelling jobs

In particular, distinguish the cases when a job could not have been
cancelled and when a job has already finished.
Signed-off-by: default avatarPetr Pudlak <>
Reviewed-by: default avatarKlaus Aehlig <>
parent 234f9032
......@@ -545,13 +545,17 @@ waitForJob jid tmout = do
qDir <- liftIO queueDir
let jobfile = liveJobFile qDir jid
load = liftM fst <$> loadJobFromDisk qDir False jid
jobR <- liftIO $ watchFileBy jobfile tmout
(genericResult (const False) jobFinalized) load
finalizedR = genericResult (const False) jobFinalized
jobR <- liftIO $ watchFileBy jobfile tmout finalizedR load
case calcJobStatus <$> jobR of
return (True, "Job successfully cancelled")
| finalizedR jobR ->
return (False, "Job exited before it could have been canceled,\
\ status " ++ show s)
| otherwise ->
return (False, "Job exited with status " ++ show s)
return (False, "Job could not have been cancelel, status "
++ show s)
Bad e -> failError $ "Can't read job status: " ++ e
-- | Try to cancel a job that has already been handed over to execution,
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment