guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

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
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 4 additions and 2 deletions
Show stats 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)
(while #t
(match (process-next-load-new-guix-revision-job conn)
(#f (begin (simple-format #t "Waiting for new jobs...")
(sleep 60)))
(#f (begin
(simple-format #t "Waiting for new jobs...")
(unless (eq? 0 (sleep 60))
(exit 0))))
(_ #f))))