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

More easily support stopping guix-data-service-process-jobs

Browse source
This commit is contained in:
Christopher Baines 2019-03-29 09:14:23 +00:00
parent d62ea8857d
commit 93d8798df5
Signed by: cbaines
GPG key ID: 5E28A33B0B84F577
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -6,6 +6,8 @@
(define (process-jobs conn) (define (process-jobs conn)
(while #t (while #t
(match (process-next-load-new-guix-revision-job conn) (match (process-next-load-new-guix-revision-job conn)
(#f (begin (simple-format #t "Waiting for new jobs...") (#f (begin
(sleep 60))) (simple-format #t "Waiting for new jobs...")
(unless (eq? 0 (sleep 60))
(exit 0))))
(_ #f)))) (_ #f))))