diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-03-03 18:15:29 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-03-03 18:15:29 +0000 |
| commit | 623347d83513a1f35103186ca78e85443ee543ae (patch) | |
| tree | 90eafa9cde35f91b23ab3358eb42cd3f5f8af27f /guix-data-service/jobs/load-new-guix-revision.scm | |
| parent | ffdd2416f487569830cc6c2038bff4c6cb25193a (diff) | |
| download | data-service-623347d83513a1f35103186ca78e85443ee543ae.tar data-service-623347d83513a1f35103186ca78e85443ee543ae.tar.gz | |
Add a list of the queued revisions to the index page
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 135dc3a..dcdd83e 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -16,7 +16,8 @@ #:use-module (guix-data-service model package-metadata) #:use-module (guix-data-service model derivation) #:export (process-next-load-new-guix-revision-job - select-job-for-commit)) + select-job-for-commit + most-recent-n-load-new-guix-revision-jobs)) (define (inferior-guix->package-ids store conn inf) (let* ((packages (inferior-packages inf)) @@ -173,6 +174,14 @@ (list commit)))) result)) +(define (most-recent-n-load-new-guix-revision-jobs conn n) + (let ((result + (exec-query + conn + "SELECT * FROM load_new_guix_revision_jobs LIMIT $1" + (list (number->string n))))) + result)) + (define (process-next-load-new-guix-revision-job conn) (let ((next (exec-query |