diff --git a/guix-data-service/jobs.scm b/guix-data-service/jobs.scm index de8e456..8945e43 100644 --- a/guix-data-service/jobs.scm +++ b/guix-data-service/jobs.scm @@ -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)