diff options
Diffstat (limited to 'guix-data-service/jobs.scm')
| -rw-r--r-- | guix-data-service/jobs.scm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/guix-data-service/jobs.scm b/guix-data-service/jobs.scm new file mode 100644 index 0000000..0d5c266 --- /dev/null +++ b/guix-data-service/jobs.scm @@ -0,0 +1,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)))) |