blob: 8f52e678a112dd3ed39a798239d2ec91e67cca80 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
(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...")
(unless (eq? 0 (sleep 60))
(exit 0))))
(_ #f))))
|