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

2019-03-29 09:14:23 +00:00 · 2019-03-29 09:14:23 +00:00 · 93d8798df5
commit 93d8798df5
parent d62ea8857d
1 changed files with 4 additions and 2 deletions
--- 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))))