blob: 7fe361b3d026987d6541d30e6698359d5471b8bc (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
(define-module (guix-data-service jobs)
#:use-module (ice-9 match)
#:use-module (guix-data-service jobs load-new-guix-revision)
#:export (process-jobs))
(define (process-jobs conn)
(while #t
(match (process-next-load-new-guix-revision-job conn)
(#f (unless (eq? 0 (sleep 5))
(exit 0)))
(_ (simple-format #t "\nFinished processing job\n\n")))))
|