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 | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index d7af63f..ca38b06 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -20,6 +20,7 @@ #:use-module (guix-data-service model derivation) #:export (process-next-load-new-guix-revision-job select-job-for-commit + enqueue-load-new-guix-revision-job most-recent-n-load-new-guix-revision-jobs)) (define inferior-package-id @@ -314,6 +315,18 @@ (and store-item (extract-information-from store conn url commit store-item)))))) +(define (enqueue-load-new-guix-revision-job conn url commit source) + (define query + " +INSERT INTO load_new_guix_revision_jobs (url, commit, source) +VALUES ($1, $2, $3) +RETURNING id;") + + (first + (exec-query conn + query + (list url commit source)))) + (define (select-job-for-commit conn commit) (let ((result (exec-query |