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

Fix delete-guix-revision-package-derivation-entries

Browse source 
For the table schema change.
This commit is contained in:
Christopher Baines 2022-05-24 12:22:52 +01:00
parent 512b43ec73
commit b73cfa5d49
1 changed files with 12 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

15
guix-data-service/model/package-derivation-by-guix-revision-range.scm
View file

@ -30,22 +30,25 @@
git-repository-id
guix-revision-id
branch-name)
(and=>
(git-branch-for-repository-and-name conn
(string->number git-repository-id)
branch-name)
(lambda (git-branch-id)
(exec-query
conn
"
DELETE FROM package_derivations_by_guix_revision_range
WHERE git_repository_id = $1 AND
branch_name = $2 AND
WHERE git_branch_id = $1 AND
derivation_id IN (
SELECT package_derivations.derivation_id
FROM package_derivations
INNER JOIN guix_revision_package_derivations
ON package_derivations.id = guix_revision_package_derivations.package_derivation_id
WHERE revision_id = $3
WHERE revision_id = $2
)"
(list git-repository-id
branch-name
guix-revision-id)))
(list (number->string git-branch-id)
guix-revision-id)))))
(define (insert-guix-revision-package-derivation-entries conn
git-repository-id