cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve the job processing

Browse source 
Speed up checking for new jobs, and remove debugging output.
This commit is contained in:
Christopher Baines 2019-04-10 20:17:44 +01:00
parent 6022edd074
commit 14cb5425d4
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
guix-data-service/jobs.scm
View file

@ -6,8 +6,6 @@
(define (process-jobs conn) (define (process-jobs conn)
(while #t (while #t
(match (process-next-load-new-guix-revision-job conn) (match (process-next-load-new-guix-revision-job conn)
(#f (begin (#f (unless (eq? 0 (sleep 5))
(simple-format #t "Waiting for new jobs...") (exit 0)))
(unless (eq? 0 (sleep 60)) (_ (simple-format #t "\nFinished processing job\n\n")))))
(exit 0))))
(_ #f))))