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

Don't count exiting with a status of 0 as a failure

Browse source
This commit is contained in:
Christopher Baines 2022-01-14 15:24:12 +00:00
parent 21cb33a859
commit fcf1177d2c
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -103,13 +103,14 @@
;; No process to wait for ;; No process to wait for
#f) #f)
((pid . status) ((pid . status)
(match (hash-ref processes pid) (unless (eq? status 0)
((_ (id)) (match (hash-ref processes pid)
(simple-format (current-error-port) ((_ (id))
"pid ~A (job: ~A) failed with status ~A\n" (simple-format (current-error-port)
pid id status) "pid ~A (job: ~A) failed with status ~A\n"
pid id status)
(handle-job-failure id))) (handle-job-failure id))))
(hashv-remove! processes pid) (hashv-remove! processes pid)