cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Avoid logging when there are no processes to wait for

Browse source
This commit is contained in:
Christopher Baines 2023-03-09 08:24:01 +00:00
parent e9ccb66225
commit 55059558e7
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
guix-data-service/jobs.scm
View file

@ -122,8 +122,13 @@
;; Recurse, to check for other finished processes. ;; Recurse, to check for other finished processes.
(wait-on-processes)))) (wait-on-processes))))
(lambda (key . args) (lambda (key . args)
(simple-format #t "key ~A args ~A\n" (unless (and (eq? key 'system-error)
key args)))) (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) (define (kill-long-running-processes)
(hash-map->list (hash-map->list