diff options
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 33 | ||||
| -rw-r--r-- | tests/jobs-load-new-guix-revision.scm | 12 |
2 files changed, 21 insertions, 24 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 643df0a..a374a6e 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -897,21 +897,6 @@ WHERE job_id = $1" (lambda (key . args) (display-backtrace (make-stack #t) (current-error-port))))))) - -(define (store-item-for-git-repository-id-and-commit - conn git-repository-id commit) - (with-store store - (set-build-options store - #:fallback? #t) - (channel->guix-store-item - conn - store - (channel (name 'guix) - (url (git-repository-id->url - conn - git-repository-id)) - (commit commit))))) - (define (update-package-versions-table conn git-repository-id commit) ;; Lock the table to wait for other transactions to commit before updating ;; the table @@ -1044,10 +1029,22 @@ ORDER BY packages.name, packages.version" #t) +(define (store-item-for-channel conn channel) + (with-store store + (set-build-options store #:fallback? #t) + (channel->guix-store-item conn + store + channel))) + (define (load-new-guix-revision conn git-repository-id commit) - (let ((store-item - (store-item-for-git-repository-id-and-commit - conn git-repository-id commit))) + (let* ((channel-for-commit + (channel (name 'guix) + (url (git-repository-id->url + conn + git-repository-id)) + (commit commit))) + (store-item + (store-item-for-channel conn channel-for-commit))) (if store-item (and (extract-information-from conn git-repository-id diff --git a/tests/jobs-load-new-guix-revision.scm b/tests/jobs-load-new-guix-revision.scm index cbd9adc..8f82e10 100644 --- a/tests/jobs-load-new-guix-revision.scm +++ b/tests/jobs-load-new-guix-revision.scm @@ -22,8 +22,8 @@ #t (mock ((guix-data-service jobs load-new-guix-revision) - store-item-for-git-repository-id-and-commit - (lambda (conn git-repository-id commit) + store-item-for-channel + (lambda (conn channel) "/gnu/store/test")) (mock @@ -46,8 +46,8 @@ #f (mock ((guix-data-service jobs load-new-guix-revision) - store-item-for-git-repository-id-and-commit - (lambda (conn git-repository-id commit) + store-item-for-channel + (lambda (conn channel) #f)) (match (enqueue-load-new-guix-revision-job @@ -64,8 +64,8 @@ #f (mock ((guix-data-service jobs load-new-guix-revision) - store-item-for-git-repository-id-and-commit - (lambda (conn git-repository-id commit) + store-item-for-channel + (lambda (conn channel) "/gnu/store/test")) (mock |