diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-04-10 20:17:44 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-04-10 20:17:44 +0100 |
| commit | 14cb5425d4d4eb87f636eb30e3bcae71414421f8 (patch) | |
| tree | b61cf10c41eb9021ed433fea3e1ebafe96d694ea | |
| parent | 6022edd0742460aab4f1476d8e91210b13b978c7 (diff) | |
| download | data-service-14cb5425d4d4eb87f636eb30e3bcae71414421f8.tar data-service-14cb5425d4d4eb87f636eb30e3bcae71414421f8.tar.gz | |
Improve the job processing
Speed up checking for new jobs, and remove debugging output.
| -rw-r--r-- | guix-data-service/jobs.scm | 8 |
1 files 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"))))) |