diff options
Diffstat (limited to 'guix-data-service/jobs.scm')
-rw-r--r-- | guix-data-service/jobs.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/guix-data-service/jobs.scm b/guix-data-service/jobs.scm index 93b337b..8f52e67 100644 --- a/guix-data-service/jobs.scm +++ b/guix-data-service/jobs.scm @@ -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)))) |