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