From 93d8798df5840bbda4325c5a137b6f20419c47fb Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 29 Mar 2019 09:14:23 +0000
Subject: More easily support stopping guix-data-service-process-jobs

---
 guix-data-service/jobs.scm | 6 ++++--
 1 file 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))))
-- 
cgit v1.2.3