From fcf1177d2c47a7bc489f6a836d5648a5f903cb05 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 14 Jan 2022 15:24:12 +0000 Subject: [PATCH] Don't count exiting with a status of 0 as a failure --- guix-data-service/jobs.scm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) 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)