diff options
author | Christopher Baines <mail@cbaines.net> | 2019-02-24 16:47:29 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-02-24 16:52:45 +0000 |
commit | b8543859c932104c73208e8994246900f1baced0 (patch) | |
tree | 2817b1e86ea99c2a5976c830cef1d380066c5da5 /guix-data-service/jobs/load-new-guix-revision.scm | |
parent | e68142cf910b7a12b2eadda0c973de4541a47a29 (diff) | |
download | data-service-b8543859c932104c73208e8994246900f1baced0.tar data-service-b8543859c932104c73208e8994246900f1baced0.tar.gz |
Show when revisions are missing, but queued for processing
Diffstat (limited to 'guix-data-service/jobs/load-new-guix-revision.scm')
-rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 8c2e3a9..311bdcd 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -15,7 +15,8 @@ #:use-module (guix-data-service model guix-revision-package) #:use-module (guix-data-service model package-metadata) #:use-module (guix-data-service model derivation) - #:export (process-next-load-new-guix-revision-job)) + #:export (process-next-load-new-guix-revision-job + select-job-for-commit)) (define (inferior-guix->package-ids store conn inf) (let* ((packages (inferior-packages inf)) @@ -145,6 +146,14 @@ (commit commit))))) (extract-information-from store conn url commit store-item))))) +(define (select-job-for-commit conn commit) + (let ((result + (exec-query + conn + "SELECT * FROM load_new_guix_revision_jobs WHERE commit = $1" + (list commit)))) + result)) + (define (process-next-load-new-guix-revision-job conn) (let ((next (exec-query |