cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Extract out creating the guix-revision from extract-information-from

Browse source 
To allow for using the guix-revision-id when inserting channel news entries.
This commit is contained in:
Christopher Baines 2019-11-18 19:52:36 +00:00
parent 3ef99acc79
commit 2e8ca7f547
1 changed files with 37 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

16
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -741,7 +741,7 @@ WHERE job_id = $1"
output)))
(define (extract-information-from conn git-repository-id commit store-path)
(define (extract-information-from conn guix-revision-id commit store-path)
(simple-format
#t "debug: extract-information-from: ~A\n" store-path)
(with-store store
@ -854,10 +854,6 @@ WHERE job_id = $1"
#t "debug: finished loading information from inferior\n")
(close-inferior inf)
(let ((guix-revision-id
(insert-guix-revision conn git-repository-id
commit store-path)))
(when inferior-lint-warnings
(let* ((lint-checker-ids
(lint-checkers->lint-checker-ids
@ -886,7 +882,7 @@ WHERE job_id = $1"
package-derivation-ids)
(simple-format
#t "Successfully loaded ~A package/derivation pairs\n"
(length package-derivation-ids))))))
(length package-derivation-ids)))))
#t)
(lambda (key . args)
(simple-format (current-error-port)
@ -1046,11 +1042,15 @@ ORDER BY packages.name, packages.version"
(store-item
(store-item-for-channel conn channel-for-commit)))
(if store-item
(let ((guix-revision-id
(insert-guix-revision conn git-repository-id
commit store-item)))
(and
(extract-information-from conn git-repository-id
guix-revision-id
(extract-information-from conn guix-revision-id
commit store-item)
(update-package-versions-table conn git-repository-id commit)
(update-package-derivations-table conn git-repository-id commit))
(update-package-derivations-table conn git-repository-id commit)))
(begin
(simple-format #t "Failed to generate store item for ~A\n"
commit)