(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))))