12 lines
397 B
Scheme
12 lines
397 B
Scheme
(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)
|
|
(match (process-next-load-new-guix-revision-job conn)
|
|
(#f (begin (simple-format #t "Waiting for new jobs...")
|
|
(sleep 60)
|
|
(process-jobs conn)))
|
|
(_ (process-jobs conn))))
|