diff options
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 |