diff options
| -rw-r--r-- | guix-data-service/jobs.scm | 9 |
1 files 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 |