Commit 3f11a477 authored by Klaus Aehlig's avatar Klaus Aehlig
Browse files

Report non-existent jobs as such



When queried to WaitForJobChange of an non-existent job,
report this as an error.
Signed-off-by: default avatarKlaus Aehlig <aehlig@google.com>
Reviewed-by: default avatarPetr Pudlak <pudlak@google.com>
parent 86836968
......@@ -284,6 +284,7 @@ handleCall _ _ cfg (WaitForJobChange jid fields prev_job prev_log tmout) = do
-- verify if the job is finalized, and return immediately in this case
jobresult <- loadJobFromDisk qDir False jid
case jobresult of
Bad s -> return . Bad $ JobLost s
Ok (job, _) | not (jobFinalized job) -> do
let jobfile = liveJobFile qDir jid
answer <- watchFile jobfile (min tmout C.luxiWfjcTimeout)
......
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