blob: 0d5c2664c499939eebdc5a798b99cf4500be9d42 (
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)
(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))))
|