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
#f)
((pid . status)
(match (hash-ref processes pid)
((_ (id))
(simple-format (current-error-port)
"pid ~A (job: ~A) failed with status ~A\n"
pid id status)
(unless (eq? status 0)
(match (hash-ref processes pid)
((_ (id))
(simple-format (current-error-port)
"pid ~A (job: ~A) failed with status ~A\n"
pid id status)
(handle-job-failure id)))
(handle-job-failure id))))
(hashv-remove! processes pid)