02/05: Avoid logging when there are no processes to wait for

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit 55059558e7ba636fb46d84058b1d73a372ce0dd8
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Thu Mar 9 08:24:01 2023 +0000

    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