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

Improve dropping package_derivation_by_guix_revision_range partitions

Browse source
This commit is contained in:
Christopher Baines 2023-02-13 19:26:44 +00:00
parent 6be113f99d
commit 078516e0ab
1 changed files with 11 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

17
guix-data-service/data-deletion.scm
View file

@ -24,6 +24,7 @@
#:use-module (fibers) #:use-module (fibers)
#:use-module (guix-data-service utils) #:use-module (guix-data-service utils)
#:use-module (guix-data-service database) #:use-module (guix-data-service database)
#:use-module (guix-data-service model git-branch)
#:use-module (guix-data-service model package-derivation-by-guix-revision-range) #:use-module (guix-data-service model package-derivation-by-guix-revision-range)
#:export (delete-guix-revisions #:export (delete-guix-revisions
delete-data-for-branch delete-data-for-branch
@ -213,18 +214,16 @@ WHERE id IN (
(delete-from-git-commits conn) (delete-from-git-commits conn)
(delete-jobs conn) (delete-jobs conn)
(let ((git-branch-id
(git-branch-for-repository-and-name conn
git-repository-id
branch-name)))
(exec-query (exec-query
conn conn
(string-append
" "
DELETE FROM package_derivations_by_guix_revision_range DROP TABLE package_derivations_by_guix_revision_range_git_branch_"
WHERE git_branch_id IN ( (number->string git-branch-id) ";")))
SELECT id
FROM git_branches
WHERE git_repository_id = $1 AND
name = $2
)"
(list (number->string git-repository-id)
branch-name))
(delete-guix-revisions conn git-repository-id commits)))) (delete-guix-revisions conn git-repository-id commits))))