diff --git a/guix-data-service/jobs.scm b/guix-data-service/jobs.scm index 8f52e67..7fe361b 100644 --- a/guix-data-service/jobs.scm +++ b/guix-data-service/jobs.scm @@ -6,8 +6,6 @@ (define (process-jobs conn) (while #t (match (process-next-load-new-guix-revision-job conn) - (#f (begin - (simple-format #t "Waiting for new jobs...") - (unless (eq? 0 (sleep 60)) - (exit 0)))) - (_ #f)))) + (#f (unless (eq? 0 (sleep 5)) + (exit 0))) + (_ (simple-format #t "\nFinished processing job\n\n")))))