From 55059558e7ba636fb46d84058b1d73a372ce0dd8 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 9 Mar 2023 08:24:01 +0000 Subject: Avoid logging when there are no processes to wait for --- guix-data-service/jobs.scm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/guix-data-service/jobs.scm b/guix-data-service/jobs.scm index 56c3ce7..a0f59dc 100644 --- a/guix-data-service/jobs.scm +++ b/guix-data-service/jobs.scm @@ -122,8 +122,13 @@ ;; Recurse, to check for other finished processes. (wait-on-processes)))) (lambda (key . args) - (simple-format #t "key ~A args ~A\n" - key args)))) + (unless (and (eq? key 'system-error) + (match args + (("waitpid" "~A" ("No child processes") (10)) + #t) + (_ #f))) + (simple-format #t "key ~A args ~A\n" + key args))))) (define (kill-long-running-processes) (hash-map->list -- cgit v1.2.3