cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Record jobs as failed when they are killed

Browse source 
So that they aren't retried again and again.
This commit is contained in:
Christopher Baines 2019-07-14 14:16:05 +01:00
parent 3dfa9212f1
commit 6904547bf2
2 changed files with 30 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

18
guix-data-service/jobs.scm
View file

@ -13,8 +13,17 @@
"guix-data-service-process-job"
job-id))
(define (handle-job-failure job-id)
(record-job-event conn job-id "failure")
(display (simple-format #f "recording failure for job ~A\n" job-id)
(current-error-port))
(when (> (count-log-parts conn job-id)
0)
(combine-log-parts! conn job-id)))
(process-jobs-concurrently fetch-new-jobs
process-job))
process-job
handle-job-failure))
(define default-max-processes
(max (round (/ (current-processor-count)
@ -27,6 +36,7 @@
(define* (process-jobs-concurrently fetch-new-jobs
process-job
handle-job-failure
#:key (max-processes
default-max-processes)
(timeout default-timeout))
@ -88,7 +98,11 @@
#f "sending SIGTERM to pid ~A started at ~A, now running for ~A\n"
pid start-time running-for)
(current-error-port))
(kill pid SIGTERM)))))
(kill pid SIGTERM)
(match job-args
((id)
(handle-job-failure id)))))))
processes))
(define (fork-and-process-job job-args)