From 14cb5425d4d4eb87f636eb30e3bcae71414421f8 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 10 Apr 2019 20:17:44 +0100 Subject: [PATCH] Improve the job processing Speed up checking for new jobs, and remove debugging output. --- guix-data-service/jobs.scm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) 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")))))