diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-03-09 08:24:01 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-03-09 08:24:01 +0000 |
| commit | 55059558e7ba636fb46d84058b1d73a372ce0dd8 (patch) | |
| tree | fe8f3fccd4837a7fe1acd7c296309acb87b2ac30 | |
| parent | e9ccb66225f16880a331355a7923556791debd05 (diff) | |
| download | data-service-55059558e7ba636fb46d84058b1d73a372ce0dd8.tar data-service-55059558e7ba636fb46d84058b1d73a372ce0dd8.tar.gz | |
Avoid logging when there are no processes to wait for
| -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 |