guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

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
Show stats 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)
(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")))))