diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-03-29 09:14:23 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-03-29 09:14:23 +0000 |
| commit | 93d8798df5840bbda4325c5a137b6f20419c47fb (patch) | |
| tree | 56c338442f3a79fe3b784b80f3c7f008d3374183 | |
| parent | d62ea8857d5f4ed38c1026407f3541b234176f12 (diff) | |
| download | data-service-93d8798df5840bbda4325c5a137b6f20419c47fb.tar data-service-93d8798df5840bbda4325c5a137b6f20419c47fb.tar.gz | |
More easily support stopping guix-data-service-process-jobs
| -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)))) |