blob: 93b337becda8c9f40e40fac753635ac25efb836b (
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 (begin (simple-format #t "Waiting for new jobs...")
(sleep 60)))
(_ #f))))
|